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4©f t„ 
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REPEAT 3 [ FD 150 RT 120 ] 

c “IEHfc*r ti '5 2 ffl 5 r#lt 5 t, 4 
ft**£>If, 

lEHftff^ r 

7 14 4 *1 f To >5 © t 715, f/f L 4 

ft 4 4 a ©❖❖** to- rt„ :n«mr 

1'7 tl h ©RatiN, O f 0 , 

TO + ®Jf6j©H** 

®irii,'f.iUTO 0 :tft. :W: 

li, r ~tJ 4* i: If j £1' 7 0 f 

T*' ti, *rLi."frfc 4 £t£t 4 Ulftfo 4 
1 4£HUf'T& (TT"t> 0T=Ac £ oTIilW 
«4i'A>)oT0 41£-?-C‘TEH£i)ir ti'? 
❖❖ 4 £#t 4 4 atilt, 

TO lEHftffiS 

Uillit, T4£, 7°n>:7 0 M 5 ' 

? > 

*■ ^ 

>> 

ti£boT<^©£ilaftr^r *4 4 t 4 

ffrix < tiito ::T, 

REPEAT 3 [ FD 150 RT 120 ] 
4 AtjL 4 #£, 

END 

4a*jl-c, acorf-ftcmi). 
$*, ;nT:riHftra'7^tt, 

h(4 7 
i' 5 ❖❖© 4 t 4L0G0'flf7° Hri 7' 
£«(.>* t) £ESiJt 4 4 £ 4 <ffi*. 4 t 
7i:it)HA' CniiJiRT, TO i:l 

■o "C'iEjSs? tlti^^tf 7°o •> —R-V- £!!<,' 

it), /:t i 1ST, tfjl©^n^£IS]E t 7 c 
‘IZftff £1' 5 

REPEAT 24 [lEHftff^ RT 15 ] 

£ t,' 7 Si •) IS L ^❖43 RtT ftlf, lEEft 


i*4®i£$-tf"C-t't‘ 4 0»ili-li4: £ 
vxi* 4©-rt(Bi5) 0 4 mt, BAsicr 
ii£s 4 to-rii ii'ts-rt (irt., l 

ISP❖FORTH-Cli^L-CftTii U':i 
-fit* •) itA. foRA.£ il.JllU-S 0 ) 0 
£ 4 Af, iiie® t 7 t: L X%m l A*, “I 

ZftflT £t'■?❖❖&, 

* { 150 ©IL *-im < 4 £ *>'-£'& 4 1 ' 
©T', to l L b < h 1 i -t A. FORWARD 
4‘ £ ©7°!) S t 4 7 ©4 5 c, 

4 ^nsc-r-ia©* 5 4t&£ L 4 <.' £ t' 7 © 
^Alf-TL i ?o ^i 1, 

50 

4<R —ja©^S* { 50©jEHft^4f«Ei*-e- 
4 R T, 

IE ELM* 100 

4 f>If, -12© fi$100rt4i) 4IF. 

4i@A‘‘t 4 ❖❖ ii’5 4 £ ti L 4i' 
blfC?o LOGOTIi (oi'Tc, LISP^ 
FORTH T'It) :Oi)4:U nTigrt, 
LOGO ©lift, TO 
£§, 
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X h 2 )„ C. C -r, '> L 0 I to tu 

rbo LOGO©RWRBt it, |hJ L 4,Iiij© w 
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4i?L £ t,'CT4©*'4ft^L'C4t.'* > ti 
T'To 4t 4If, “K«" (Dffi CSli 
HcDct) ti\ 250f 94i« < 4o4 t&, 

*lT4l*-ib^-a-a2 fcCL£ Li7» 2 <D t 
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END 
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t: i i tit's aia^-cto 

IB 7E0**£teor 

turbo LOGO 0^-|>A/77t 7 X X 
T'cOaUsCCO#fili, ?-hi-47l5ir'@ 
Kt^fHcLfto cncot'-rlii 
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^H^4fExT^ •) i i - ,, 4 i 4If ^ — h ^ 
£ 3 t: 150©fMI4"OHiiJi$ 4oniS', 

ASK 3 [ FD 150 ] 

ti'7i7i:A*Lit 0 oiD, ASKCO 

4 [ t ] "C'191/44" L co 4 L> o T < 4 cor to 
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— h 3 C0^l* f Mi i itAo il® (D 4'i9 
t_ t> ^ — h ^ -r*4 m&tt- b» 
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li, CC04*<O^li, b^hfx., 

ASK 3 [ ST ] 
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Mi, 

2 3 4 5 * 5 >K&, 
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T'S if. 
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4©ASKlnHtHft:Llf', 7m<Dfr-b^ 
% & 0 111 * ! '-C' & 4 ©ft ti\ k 

nrncD?-b »mc ibjc^^x. 44 

* i: If, '£$?4 *- h It ASK 

4- If ft If" 4 C, 4-1'OiM'dli-r to 

* 4 T', EACH^**^ LiU5. 
COEACH^If, # G*‘L ATELL^ 

S ft 4 * - h />x g i;MLt, |fil C 
^4’Wil^i:4iTi'l> it, TELLoir^n" 
11' ? © If, £• 4 * — h ^ £i © ft fjij 4 #: 
^ 4 *>©$?[ t ] irm-t^-o-c^-i f 
T„ 4 t i If', 

TELL [135] 

4 'Ji ft t ft If", EACH If * - h 8 

It, tr-|>fl'g5i:W 

3r4x.4 4 t* f -C'£ ft. tLt, £©E 
ACHifr^t i' 5 ©If, £ ft'Fft©:?-h ^ 

5 U-'P-oT t> *4 [ t ] -tTtflA 

■Ctftwt 4 ©t t„ 4 t i If", ^©*U£-, 

EACH [ ST FD 150 ] 

If, 

ASK 1 [ ST FD 150 ] 

ASK 3 [ ST FD 150 ] 

ASK 5 [ ST FD 150 ] 

t l»J L Z t i: 4 0 i To t:At', TELL 


?> 

?> 

?> 

?> 

?> PS 

TO s ft ft n : m 81 : ix x< 

REPEAT 3 [ Sfriioa : if : lx —C xP RT 120 ] 
END 

?> 

?> PO 

tb sfrtt»oa -mm u * » 

IF : ix -N- ju =0 [ FD : gg Hi STOP ] 

sttffi&roa ■■ mm / 3 : i , * -1 

LT 60 

- s tt a ns <o a ■. mm s 3 : u * * -1 

RT 120 

SK-ffi&wa -mm / z w * * -1 

LT 60 

5 ft- a *s © a -mm / 3 :u -1 

END 

?> 

? > po " c ft IS 

TO C fti : m m : lx * )V 

IF : Ix x< Ji = 0 [ FD :mm STOP ] 

LT 45 

case -.mm / 1.414213 6 : u ^ * - 1 

RT 90 

cm :££f x- 1.4142136 : lx * A. - 1 

LT 45 

END 

?> 

?> PO "fe K 5 3 y ft IS 
TO : fE if : lx x« VP 

IF : Ix xs- ,1 = □ [ FD :mm STOP ] 

LT 45 

^ F t i > 11 :mm S 1. 4142136 : ix ->* * - 1 

RT 90 

iF5i>ft# :mm / 1. 4142136 : l 4 * - 1 

LT 45 

END 

?> 

?> PO "S K5 ^ >i# 

TO J F 7 i > ® i : IE if :ixxc4- 


IF : u 


JV = 0 

[ FD 

:E* 

STOP ] 


RT 45 
£ K 5 

r/ 

> ft 18 

: E Ml 

/ 1. 

4142136 

: ]✓ ^ a - 1 

LT 90 
2c K 7 


> ft $ 


/ 1. 

4142136 

: \y - 1 


RT 45 
END 

?> 

?> 

?> 
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-r^'&^n-ct' £ *-1' ^ tit: hoy, m<v 
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SHOW WHO 

UijLTAtf A"$ t' 0 5t*S©TELLlSr 

-u£TTr L tz'ikU c>, iliiii: 
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T", i < PRINT E 
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TELLon'p <:Lf L T, 


EACH [ FD WHO * 20 ] 

li, 

ASK 1 [ FD 1 * 20 ] 

ASK 3 [ FD 3 * 20 ] 

ASK 5 [ FD 5 * 20 ] 

t M Let i:4 b i To e M'WM'C § ft 
(if, 

TELL [ 1 2 3 4 5 6 7] 

EACH [ ST ] 

EACH [RTWHO* (360/7) FD150] 
TT«J* ? &£ £C0***7*> •? it*!. 6 4 A A 
P*J21©J; 7 4I*J0C4 $T, 
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Ml - £e t t' : x & iT 0 oi y, 

SETPC ☆ 
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EACH [ SET PC WHO ] 
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l 4 * 5 A 1*1 ft* £ JSi <■' T t' < f fli £ f; tf Tfc’i 
iliL f*f/J(i, 

TELL [ 1 2 3 4 5 6 7] 

EACH [SETPC WHO ST] 
REPEAT 1000[EACH[RT 

RANDOM 360 FD 10]] 
-T'to eftli, SU&IHI&RANDOM £fiio 
X ?— b ^©£)(pJ & £(T* T, O-tz T ® li'i 
jl3>-a-£4Tf£>^^-C'1-. fr—b^m-tzh 
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22) o t 7 '>L i t t, 4ffl tltlt K7 =t" 

>lfil^£4E£>3f — I t(gl 

23 ) o ;nii, 


TELL [1 3 5 7] 

EACH [ST RT 45* (WHO- 1 )] 
EACH [SETPC WHO] 

EACH [4T'7i>#i 150 8] 

C <fc £ {> ©T'to 

^[?|li, L0G0©^'4-7©M©)iffiT'* 

£ ^ — h 7"-7 7 4 7 ^ XCit.N LTAi 

LL. ^nm, t)CH*0 i, 7^1 
LOGO* 1 ' LISP x MdtlS 

6 4i- tSi'it. 

##XS* 
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L I'LOGOaPIj, ’/(fT/hK, 1985T- 
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BASIC“ffit^AH 


g£AliBASIC£t'©<fc-5t:®oTl'i t 

&titzsb<r>m$S[T' uiA'o vi/>^s 
*'<7>wi§*M5it 5 tz)h<T)l> t -3(»MtL 
«k -5 *'o tilt t.BASIC^ng^*'*i®a'(7)iI 
lci'^n'5«tL «t -5 *' 0 

J: -7*'', 

¥ ilT t, BASICS i r>tz < <$*> *1' 11' 7 '< 
V u V !■■— tf-(ili t A tV4'l't SI' i to 
7'?'>3> i /F'Oft", D-JU^U-t 
&'A-Tt> Cl'O-ir — v — tint t>, t-fey 

T t>, Lisp-’fcProlog, Forth, C4"ffil'C4 
twM1f±T-*oTt), 

K7 = 7tJnTt, ^oUfy BASIC 
»ffi-5<4T*to 

ti"5 

‘J i-B-Ao BASICttill', 

£&-j tl'-7 

i tA'*, Beginer’s All-purpose ~<D^i<T )t 
fc ‘J !£ 4 *<#SSiic fijffl T# 5'y-ju Th y, 
t (4v->y<4!(tS4-1) o 11) J: < S14 y 7 
h ■>x7'4wt'tc ifc, ^ynyJSiScffl 
»c<*il3 yp>7AO# < (JBASICT'fcA'il 

Tl'ito ftiCioTMWS ti'oT 

-o t^i^l±'(it^^rt-<TOTypy' ; 7AA'• 
*MT# i to 

BASIC(±iA/it.C totfeo t tf84‘7 
->yt<4ty^yitxtto 
TV<y □ y =74 ?*>''*$ < y i to 4-in 
oms Ttt BASI COT*** l T ii* L, 

^W47^D-ftT p P^7 $y?£3lL 
t'fc«><7>fc y h*'*(.'O«fI'T'to 
tSrfc* 5 “ff*ft"4-sc L T*i-frA,*'o 


SI 93 ftOBASICfrU# 


IE 7 P©*L» 
<J574"j<rcmvfc iv 
BAsicasaK 

»«<!:<M> 97 xt 7 . 

*£ SSffi©BASIC 


SUSS BASICSBW* 


•nB©iEum 73 

AH 5 = 5 = 7 P? 5 A 

mmwtmv-'rt 

BASIC 7 P? 5 A 8 «©iM§ 


mu «s«ioe*ut7?a 


BASIC DATA LIST 
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1000 

DIM SX<10>,SY<10) 


1010 

SX(10)=1 : SY(10)=0 : CONSOLE C40 : 

PRINT CHR*<12) 

1030 

REM- 


1040 

LE=RND<1>*11 : VX=INT<RND<1)*3)-1 : 

VY=INT(RND(1> *3)-1 

1050 

FOR 1=1 TO LE 


1055 

IF <VX=0>*<VY=0> THEN VX=1 


1060 

IF SX(10)+VX>39 THEN VX=-1 


1070 

IF SX(10)+VX<0 THEN VX=1 


1080 

IF SY(10)+VY>23 THEN VY=-1 


1090 

IF SY(10)+VY<0 THEN VY=1 


1100 

FOR J=0 TO 9 


1110 

SX(J)=SX(J + 1) : SY < J)=SY(J + l) 


1120 

NEXT 


1130 

SX<10)=SX(10)+VX : SY <10)=SY <10)+VY 


1140 

SOSUB 5000 


1150 

NEXT 


1160 

GOTO 1030 


1170 

REM- 


4990 

END 


5000 

CURSOR SX(0>,SY<0)SPRINT » "5 


5010 

FOR J=1 TO 9 


5020 

CURSOR SX(J),SY(J)SPRINT "D"; 


5030 

NEXT 


5040 

CURSOR SX(10),SY(10)SPRINT "3"; 


5050 

RETURN 
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ifaffijlTAS,, §t, H4 L <t 5 a*„ 
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& t gfc L < 4 D 21 0 

4 7 *>(:£ItMttf § f, r t -St-o i Jo 
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t ^nc. l < *4 2 *4 < seg 0 *t«* 

— y /i> 4®*’ 14**^. 11, — f.t/£ 

^»i44t)-ft. ttAftKSrDATA* 
fct-^iiA-f. ft^-fl' 

J; 7 ? 
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mm BAsic“frs*£”AP 3 


't X h 2 


li'WifcS 


PRINT "¥" 

PRINT "Daisuke, -flying around Yukie" 


lOO CONSOLE C40 
110 CURSOR 17,10 
120 CURSOR 5,15 
130 X=14 : Y=8 
140 FOR 1=1 TO 10 
150 XB=X : YB=Y 
160 READ X,Y 

170 CURSOR X,Y : PRINT "; 

180 CURSOR XB,YB : PRINT " "; 

190 FOR J=0 TO 30 : NEXT 
200 NEXT 
210 RESTORE 
220 GOTO 140 

1000 DATA 16,7,18,7,20,8,21,10,20,12 
1010 DATA 18,13,16,13,14,12,13,10,14,8 


V X h 3 


HAPPY BIRTHDAY 


1000 CONSOLE C40 
1010 0FST=0 : GOSUB 1100 
1020 0FST=6 : GOSUB 1100 
1030 QFST=12 : GOSUB 1100 
1040 USR(*0F14> 

1050 END 

1100 REM ========== 

1110 FOR 1=0 TO 4 

1120 READ A* : USR(*0F14> 

1130 IF I-INT(I/2>*2 THEN 

1140 REM - 

1150 FOR J=1 TO 39 
1160 CURSOR 0,OFST+I 
1170 PRINT RIGHT*(AS,J); 
1180 NEXT 
1190 GOTO 1290 

1200 REM - 

1210 FOR J=1 TO 39 

1260 CURSOR 39-J,OFST+I 

1270 PRINT LEFT*(AS,J); 

1280 NEXT 

1290 NEXT 

1300 RETURN 

1990 REM ========== 

2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
20B0 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
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100 PRINT CHR*(6) : REM Xl = 12 
110 GOSUB 1000 
120 REM ========== 

130 FOR L—0 TO 1 

140 GET A$ : IF <A$="4")+(A$="1") THEN 160 
150 GOTO 190 

160 ON 1-<A*="1"> GOSUB 1200,1300 
170 CURSOR LX,LB : PRINT " "; 

180 CURSOR LX,LY : PRINT "|-"; 

190 NEXT 

200 REM - 

210 XB=BX : YB=BY 

220 IF BX+VX<1 THEN VX=1 

230 IF BY+VY<1 THEN VY=1 

240 IF BY+VY>23 THEN VY=-1 

250 BX=BX+VX s BY=BY+VY 

260 IF BX<>38 THEN 400 

270 IF (BY>LY-3)*(BY<LY+3) THEN 300 

280 MUSIC "-E4-D-C" : GOTO 100‘ 

290 REM - 

300 MUSIC "AO" 

310 VX=-1 

320 REM - 

400 CURSOR XB,YB : PRINT " "; 

410 CURSOR BX,BY : PRINT "•"; 

420 GOTO 130 
430 END 

1000 REM ========== 

1010 FOR 1=1 TO 38 

1020 CURSOR 1,0 : PRINT 

1030 CURSOR 1,24 : PRINT "-"; 

1040 NEXT 

1050 FOR 1=1 TO 23 

1060 CURSOR 0,1 : PRINT "|"; 

1070 NEXT 

10B0 CURSOR 0,0 : PRINT " r "? 

1090 CURSOR 0,24 : PRINT " L " ,* 

1100 REM - 

1110 LX=39 : LY=INT(RND(1)*23)+1 

1120 BX=38 : BY=12 : VX=-1 : VY=INT<RND<1)*2)*2-1 

1130 DEF KEY(10)=POKE $952,1661 

1140 POKE $952,0 

1150 CURSOR LX,LY : PRINT "h" 

1160 TEMPO 7 

1170 RETURN 

1180 REM ========== 

1200 LB=LY s LY=LY-1 
1210 IF LY<1 THEN LY=1 
1220 RETURN 

1290 REM - 

1300 LB=LY s LY=LY+1 
1310 IF LY>23 THEN LY=23 
1320 RETURN 
1330 REM ========== 
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10 INPUT TI$ 

20 INPUT TM$ 

30 PRINT CHR$(6):TEMPO 7 
40 IF TI$<>TM$ THEN 40 
50 MUSIC"A1"!GOTO 50 
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100 WIDTH 80:INIT:CLS 4 
110 XM=639 

120 FOR X=0 TO XM STEP 4 
130 LINE(X,0)—<XM—X,199) 

140 NEXT 

150 FOR Y=0 TO 199 STEP 2 
160 LINE(0,199—Y)—(XM,Y) 

170 NEXT 
180 END 
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100 WIDTH 80:INIT:CLS 4 

110 XM=639 

120 FOR X=0 TO XM 

130 LINE(X,0) — < XM—X, 199),XOR 

140 NEXT 

150 FOR Y=0 TO 199 

160 LINE(0,199-Y)-(XM,Y),XOR 

170 NEXT 

180 END 
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100 WIDTH 80:INIT:CLS 4 
110 XM=639 
120 SF-2 

130 REM - 

140 PH=30 :REM PH=4V9 
150 FR=3 : REM FR=iV**'>!> 

160 LV=50 : REM (7. t* 7797:) 

170 REM - 

180 Y0=99 
190 YG=60 

200 LINE(0,Y0)-(XM,Y0) 

210 REM - 

220 DEF FNY1<X)=SIN<X*rt/1B0)*YG 

230 DEF FNY2 < X) =SIN (FR* ( X+PH) %tL/ 180) *YG*LV / 100 

240 REM - 

250 Y=Y0-FNY1(0):LINE(0,Y)-(0,Y),PSET,5 
260 FOR X=0 TO XM STEP SP 
270 Y=FNY1(X) 

280 LINE- (X, Y0—Y) j.PSETj.S 

290 NEXT 

300 REM -- 

310 Y=Y0—FNY2(0):LINE<0,Y)-(0,Y),PSET,2 
320 FOR X=0 TO XM STEP SP 
330 Y=FNY2(X) 

340 LINE-(X,Y0—Y),PSET,2 

350 NEXT 

360 REM - 

370 Y=Y0—(FNY1(0)+FNY2(0)):LINE(0,Y)-(0,Y),PSET,6 
380 FOR X=0 TO XM STEP SP 

390 LINE-(X,Y0-(FNY1(X)+FNY2(X))),PSET,6 

400 NEXT 
410 END 


-JXh3|| XW>7 _ 

100 WIDTH 80:INIT:CLS 4 
110 XM=639 : XC=INT(XM/2) 

120 REM - 

130 R0=200 : R1=160 : P=125 : R=R0-R1 : YG=.5 

140 REM - 

150 SP=4 

160 REM - 

170 LINE(XC+R-P,99)—(XC+R-P,99),PSET,0 
180 FOR 1=0 TO 1 STEP 0:D=D+SP 
190 Sl=D*rt/180:S0=Sl*Rl/R0 

200 X=R*COS(S0)-P*COS(SI):Y=R*SIN(S0)+P*SIN(SI) 
210 LINE—(XC+X,99+Y*YG) 

220 NEXT 
230 END 
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100 WIDTH 80:INIT:CLS 4 
110 XM=639 : XR=XM-10 

120 REM - 

130 G=9.8 : E=.7 

140 REM - 

150 SP=.2 : AT=0 

160 REM - 

170 V0=60 : Y0=100 : D=45 

180 REM - 

190 DEF FNT(V,Y)=<V+SQR<V*V+2*G*Y>)/G:DEF FNY(V,Y,T)=V*T-.5*G*T*T+Y 
200 DEF FNT1<V,Y>=<V-SOR<V*V+2*G*Y))/G 
210 S=D*rt/ 180: VY0=V0*SIN (S) :VX0=V0*COS<S> 

220 VY=VY0:VX=VX0:X0=10 
230 T=-SF* 

240 REM - 

250 FOR 1=0 TO 1 STEP 0 
260 T=T+SP 

270 X=VX*T+X0:Y=VY*T-.5*G*T*T+Y0 
280 REM ######### i/ 3 Oh ") 1/aV ########## 

290 REM- 17) - 

300 IF Y>=10 THEN 340 

310 T=FNT(VY,Y0):X=VX*T+X0:Y=10:C=(C+1> MOD 7 
320 VY=-(VY-G*T)*E:Y0=10:X0=X:T=0:GOTO 460 

330 REM-7)V )- 

340 IF X=<XR THEN 380 

350 T=T-<X-XM>/VX:X=XR:Y=FNY<VY,Y0,T):C=(C+1> MOD 7 
360 VX=-VX*E:X0=XR:VY=VY-G*T:T=0:Y0=Y:GOTO 460 

370 REM-71V (t?~ '.)) - 

380 IF X>=10 THEN 420 

390 T=T+X/VX::X=10:Y=FNY<VY,Y0,T):C=(C+1> MOD 7 
400 VX=-VX*E:X0=10:VY=VY-G*T:T=0:Y0=Y:GOTO 460 

410 REM- ryv'aO - 

420 IF Y=<189 THEN 460 

430 T=FNT1(VY,Y0-189):X=VX*T+X0:Y=189:C=(C+l) MOD 7 

440 VY=-(VY-G*T)*E:Y0=1S9:X0=X:T=0:GOTO 460 

450 REM - 

460 CIRCLE(X,199—Y) , 5 , C+l 
470 IF AT=0 THEN CLS 0 
480 NEXT 
490 END 
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100 WIDTH 80:INIT:CLS 4 
110 XM=639 
120 YG=.5 

130 FOR D=0 TO 360 STEP 5 
135 S=D*rt/180 

140 X=COS(S)*50:Y=SIN(S)*50 
150 PSET(X+XM/2,Y*YG+99) 

160 NEXT 
170 END 
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100 WIDTH 80:INIT:CLS 4 

110 XM=639 

120 DIM T(XM),B(XM) 

130 FOR 1=0 TO XM 

140 T(I)=-1:B(I)=199:LOCATE 0,0:PRINT XM-I 

150 NEXT 

160 REM - 

170 CLS 

180 DEF FNZ(X,Y)=30*COS(rt*X/20)*SIN(n*Y/20) 
190 SP=1 

200 REM - 

210 FOR Y=0 TO 80 STEP SP 
220 FOR X=0 TO XM/4 STEP SP 
230 Z=FNZ(X,Y) 

240 P=X-Y 

250 U=XM/319*P+XM/2 

260 Q=Z+X+Y/2 

270 V=190-0 

280 IF U<0 OR U>XM THEN 370 

290 IF V<0 OR V>199 THEN 370 

300 IF V>B(U) AND V<T(U) THEN 370 

310 IF V<B(U) THEN B(U)=V 

320 IF V>T(U) THEN T(U)=V 

330 C=6 

340 IF Z<0 THEN C=5 

350 IF Z>0 THEN C=7 

360 PSET(U,V,C) 

370 NEXT 
380 NEXT 
390 END 
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1000 INPUT" i\ ? " JKETA: MAX=INT(KETA/3) 

1010 DIM MAIN(MAX)» SUB(MAX)» BO(MAX),B1< MAX)» A(MAX)* B < MAX) 
1020 FOR 1*0 TO MAX 

1030 MAIN(I)=0* MAIN<I)=0sSUB(I)=0sB0(I)=0 
1040 NEXT I 

1050 INPUT" f m -9 ? " ;MAIN<0) 

1060 ’- 

1070 FOR 1*0 TO MAXsBOd )»0:NEXT 
1080 CO-1 

1090 FOR 1*0 TO MAX s B<I)=SUB(I):NEXT 
1100 ZZ—lOtCOs GOSUB"MULT" 

1110 ZZ*C0tC0s GOSUB"ADDS" 

1120 FOR 1-0 TO MAXs Ad >=»MAIN( I ) sNEXT 
1130 GOSUB"CMP" 

1140 IF ZZ>0 THEN 1180 

1150 FOR I»0 TO MAX: BOd )»B(I ): NEXT 

1160 CO-CO+ldF C0>100 THEN END 

1170 GOTO 1090 

1180 CO-CO-1 

1190 FOR 1-0 TO MAX: Bd > -MAI N( I ) : Ad )=B0( I ): NEXT 
1200 GOSUB"SUB" 

1210 ZZ—100:GOSUB"MULT" 

1220 J-0 

1230 FOR 1-0 TO MAX:MAINd)-B(I):J-J OR (MAIN<I)>0):NEXT 

1240 PRINT CO?:IF J=0 THEN END 

1250 FOR 1=0 TO MAX: Bd )=SUB(I ): NEXT 

1260 ZZ-10*GOSUB"MULT" 

1270 ZZ=2*C0:GOSUB"ADDS" 

1280 FOR 1-0 TO MAX:SUB<I)-B(I)*NEXT 
1290 GOTO 1070 
1300 LABEL"MULT" 

1310 ZC=0 

1320 FOR ZI-0 TO MAX 
1330 B( ZI )=B< ZI XZZ + ZC 

1340 IF B< ZI)<1000 THEN ZC»0:G0T0 1370 
1350 ZC=INT(B(ZI)/1000) 

1360 B(ZI )=B< ZI) MOD 1000 
1370 NEXT ZI 
1380 RETURN 
1390 LABEL"CMP" 

1400 ZZ-0 

1410 FOR ZI—MAX TO O STEP -1 

1420 IF B(ZI >>A(ZI ) THEN ZZ-1: ZI —1 *GOTO 1440 
1430 IF BIZI )<A< ZI > THEN ZZ —1 * ZI — 1:GOTO 1440 
1440 NEXT ZI 
1450 RETURN 
1460 LABEL"SUB" 

1470 ZC-0 

1480 FOR ZI-0 TO MAX 
1490 BIZI)=B< ZI)-A< ZI)—ZC 

1500 IF BIZIXO THEN BIZI )=B( ZI ) + 1000: ZC—1 :GOTO 1520 

1510 ZC-0 

1520 NEXT ZI 

1530 RETURN 

1540 LABEL"ADDS" 

1550 BIO)*B10)+ZZ 













*m BASICTSWAn 


PRINTX-^f Mt 5f© 
frixi t*'^, iilg L "t-^©;*" 
£ftfi!fS< 4(.'IJ:TX'T 0 
C ©PRINTX© t Z b 4 QD *? RAM 7 7 
4^0*$x 
h © 7 7 f ^HX' 

to 

ifc*'7°';>:5?©#&p/r 
CftoX r ^~y ! j Iff^ffiLTLU 
If, }t's 7 °) X h**—T£ * s <), hUib 

(t-T'to 

3t, w w*‘C,ttMZ8bit& (KC*c> 
t) t I* ^ J: o t Mti 6 ©X*t * s , DOS t 
BASIC© 77 A X'£> S*§-£-© 

ffifj JCoi'T MHX Hi t 

:0i5i-»J'>UTIi, PASOPIA- 
ie^PASOPIA-1600*** 0 i to 
PASOPIA©if£-li, ifMS-DOSHie 
@Jl, £ Z C BASICS a-rH >7" LX 
%W Li to oH BASIC b MS-DOS _t 
©Ot-507rDH LXtS>bnXi.'S0 
-r, BASICXffo 4 7 7 f /H*y§8fc© c L 
4* ? £>, MS-DOS Ji©7rHH4Hto 
BASIC* 1 ti 7x A — -t — 7'4'ff x(£, 
DOS±©ir" A * (EDLIN=?) X'® x X L 
i i' i to 

C©3 tMo-C, Rfi, fAif BASIC*' 
C>, 7-fe>7"7©y-x i; x h 4ffr£L4 
C t *'■# Dit. iftiSt'x 7 A 7 7 4If 7 
©<:, £ 7 LX LHftMile© t-TV**# 
S4'-3 4©Xt* ? , 7 -t >7°7 cii?A,4 

HStii^oxi'i-a-Ao ti’oxfc, tx, 

DB 00,00,. i: 44<.'Xi'4©X(i, 

1®JI$|18*'*‘4**6*‘!> 3: XA L, InJf 0, 
B)§t**fc*'Ll't § !-, f—7'>* f fc*' Ll' 
©*', 7°B A* 5 '!!'? Xi- S©*\ b*' 

<i>4 < 4oX L £ i t. 

c © t §> t M* ? #i.'4©* ! ', BASIC 
©#&x'i4o r t>{ zum&mw*- 
o HftH»4t'-«A.'j ti'5 
•I t X'f^-o 4 © *?, BASICX' FOR ~ NEX 
t 7°4f1 s (>, £ ©fpX'x'M x X i:Jf L 
Xfit4PRINTT 4 (PRINT #1, OO t 
i'o 4 L ©) 11.' 7 , 20lf t- Lii44i.' {, 
©X'L4„ d©7°ny"7 Ali, 

L ©XL4* S , INScfSCjfct, i L4„ '® 
4XfHf L Xf-XA* L X 1 ■• 4 t, villi' 


1560 IF B<O>> 1000 THEN ZC=INT( B<0)/IOOO) s B<0)=B<0) MOD 1000 
1570 FOR ZI = 1 TO MAX 

1580 IF ZC=0 THEN ZI=MAX+1sGOTO 1610 
1590 B(ZI)=B(ZI>+CY 

1600 IF B< ZI)>1000 THEN ZC=INT<B<ZI>/1000)sB<ZI>=B<ZI> MOD lOOOsGOTO 1610 
1610 NEXT ZI 
1620 RETURN 


y * h 2 || otmmz 


1000 i nput'V— t** / tor a 4')") r'zti ? •* :n 
1010 DIM A(N,N> 

1020 L=0 

1030 FOR 1=1 TO N—1 
1040 FOR J=I+1 TO N 

1050 PRINT IJ M h M *J" / 749'/ =.* A Tl/fc" ’j r“^U " ; s INPUT A<I,J) 

1060 L=L+A< I, J >: A < J, I)=A < I, J ) 

1070 NEXT J 

1080 NEXT I 

1090 FOR 1=1 TO N 

1100 PRINT 

1110 FOR J=1 TO N 

1120 PRINT A(IpJ); 

1130 NEXT J 
1140 NEXT I 

1150 PRINTSPRINT"TOTAL ROADS = »JL 
1160 DIM W(L> 

1170 S=i:D=ist>l«W<C>«B 
1180 IF A(S,D)>0 THEN 1260 
1190 D=D+isIF D<=N THEN 1180 
1200 A(W(C-1),S)=A(W(C-1 >,8)4-1 

1210 A<S,W(C-1>)=A(W(C—1),S > 

1220 C=C—1 * IF C>0 THEN D=S 4 -1: S=W(C > ELSE S»W< 1 > 4-1 s W< 1 >=Ss D=1 s C= 1 

1230 IF S>N THEN PRINT"IMPOSSIBLE!":END 
1240 IF D<=N THEN 1180 
1250 GOTO 1200 

1260 A(S,D)=A(S,D)-l:A(D,S>=A(S,D> 

1270 FOR 1=1 TO CsPRINT W(I);sNEXT:PRINTD 
1280 IF C=L THEN 1400 
1290 C=C4-1: W(C>=Ds S=Ds D=1 
1300 GOTO 1180 

1400 PRINT:PRINT"ANSWERs"SPRINT W<1>; 

1410 FOR 1=2 TO LsPRINT" ->";W(I>;sNEXT 
1420 PRINT » ->";D 


U ^ h 3 A|| l ) ?>~7 • BASICS 


1000 ’/*- 

1010 ’ - MEMORY DUMP PROGRAM - 

1020 ’ -*/ 

1030 LI MIT*CDFF 
1040 DIM A*<15> 

1050 LOAD"DUMP.OBJ" 

1060 GOSUB"DIMINZ" 

1070 PRINTS INPUT "INPUT START ADRS = "JADR* 
1080 ADR=VAL("«"4-ADR*) 

1090 AL=ADR MOD 256 s IF AL<0 THEN AL=2564-AL 
1100 AH= I NT (ADR /256 > : IF AH<0 THEN AH=2564-AH 
1110 POKE (CE01,AL 
1120 POKE *CE02,AH 
1130 USR < *CEOO,A*(O)> 

1140 FOR 1=0 TO 15 
1150 PRINT A*(I>; 

1160 NEXT I 
1170 GOTO 1070 

1180 ’. INITIALIZE.' 

1190 LABEL"DIMINZ" 

1200 FOR 1=0 TO 15 
1210 A* <I> =SPC(40) 

1220 NEXT I 
1230 RETURN 


U^h3-B|| yy ?>-/ • ^ h 


1 ; 

2 ; INPUT DUMP LIST TO 

3 ; DIMENSION OF BASIC 


4 

5 

002A 

; 

WIDTH 

EQU 

42 

; 

LENGTH OF VAR 

6 

0010 

LINES 

EQU 

10H 

; 

LENGTH OF ROW 

7 

0008 

CBYTE 

EQU 

8 

» 

BYTES IN 1 LINE 

8 

9 

0000 

DUMMY 

EQU 

0 


g^MMY DATA 

10 

0000 

ORG 

OCEOOH 
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n>t S Z Lb' ; XZ i Ltz. 
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jzt£T — 7‘K%%.tX%;b'tX'.'tzZ l 
tt« 5 i X b tti'X’l X 5 o BASIC* ! 'ft!l© 
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OS_h"C' BASIC b'fe') Ti'SC fc©£0* ? 
Izmz'U fo U S i So tz {> ©ft. 
yj$s, zntif&i:, m©m^Dos± 
7**^BASIC©y — xH^S z t 
fe-fS if„ BASIC©f A- x b£7x*- 
-fc-7'Uz {> ©lit!|lirf 4 

:U«ot, BASICf A-x 
-7°n Srfigo-Cti<U'i:8ifc!), 
©ttttl&x. (7-7°o®X^9lI^I>^x© 
*MB«r*5) Srfr5&I?©c:fcI>J:< J f><> 
il/Zl, AC7°oy'7 a >; x h £!,-ti-S 
fcS*. ') X Mr®fipLr*'( t Siztt. 
7-7”n*-iiEn^:2.-B-A*i) LTi'ito ^ 
-mifA8©f, &*'&*>*^& fc 
off. 

a±, II,4 0© BASIC ©f'Jffliilit.'** 
iVofcfl i ?*>„ BASICfcJEt.'&lfcT', 
JSMtf^O'f 777i^fxtLTlsE5 11' 
5©is, «nf < s fc*cffiii]& to-r-f. 

i/'i a*, z z-rm l & I'fijffla 
lit,' < * obfoi) *to m&mfxmirt s 
t, 

7±-ftfs 

o A'7°n 7"7 Ufo'j — x y x h 4 *l£l A’t.' 

!§£•£ fc'-fli, RS-232Cr'o& r. BASIC** 

f.RS-232C%*Tj--7°7Lt:AS3>t°i- 
7©.XT"'f i:ASJtt5i|^ PRINT Li 
fo k<Dfo t y-x y x h $rM*, £®i 
i PRINT f 4 A'-rfcfls 0, *f£ifm 

o/jf,, 3-77 K 

$?j£S 0 znfftl, 7—5f^**tiT- 

fy-x£ Af-A© t|0]CC4: •) if„ 

(2)AS=i>b 0 J .-7**t,-Jfo-C < S*£j£* ! 
BASICxr—M 7 h c& S J: ? t:f S Z 
t X, ')§o T §t A Ti‘i f '1' 7* 7 7 \ ~y 7 A/A 
Sf S 0 
^7.. 

@§A, fc rixrk ui'-ox, zn**c. 

BASICL XfoX <t'Z t.'o 
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11 

CEOO 

210000 

LD 

HL,DUMMY ; START ADDRESS 

12 

CE03 

3E10 

LD 

A,LINES 5 LINE COUNTER 

13 

CE05 

3284CE 

LD 

(LCOUNT),A 

14 

CE08 

D5 

PUSH 

DE i SAVE ADRS 

15 

CE09 

DDE1 

POP 

IX 

16 

CEOB 


SETLINE: 


17 

CEOB 

DDE5 

PUSH 

IX 

18 

CEOD 

FDE1 

POP 

IY 

19 

CEOF 

CD73CE 

CALL 

BUFINZ ; 1 LINE CLEAR 

20 



;-SETUP 

ADDRESS - 

21 

CE12 

7C 

LD 

A, H 

22 

CE13 

CD50CE 

CALL 

BTOHEX 5 BINARY TO HEX 

23 

CE16 

FD7300 

LD 

< IY ), E 

24 

CE19 

FD7201 

LD 

(IY+l),D 

25 

CE1C 

7D 

LD 

A, L 

26 

CE1D 

CD50CE 

CALL 

BTOHEX 

27 

CE20 

FD7302 

LD 

(IY+2),E 

28 

CE23 

FD7203 

LD 

<IY+3),D 

29 





30 

CE26 

110500 

LD 

DE, 5 

31 

CE29 

FD19 

ADD 

IY, DE 

32 



--SETUP 

DATA- 

33 

CE2B 

0608 

LD 

B,CBYTE 

34 

CE2D 


SETDATA: 


35 

CE2D 

7E 

LD 

A,<HL) 

36 

CE2E 

23 

INC 

HL 

37 

CE2F 

CD50CE 

CALL 

BTOHEX 

38 

CE32 

FD7300 

LD 

(IY),E 

39 

CE35 

FD7201 

LD 

(IY+l),D 

40 

CE38 

110300 

LD 

DE, 3 

41 

CE3B 

FD19 

ADD 

IY, DE 

42 

CE3D 

10EE 

DJNZ 

SETDATA 

43 



J-NEXT CULUM- 

44 

CE3F 

112A00 

LD 

DE,WIDTH 5 SET IX TO NEXT CULUM 

45 

CE42 

DD19 

ADD 

IX, DE 

46 

CE44 

3A84CE 

LD 

A,(LCOUNT) J SET FINISHED? 

47 

CE47 

D601 

SUB 

1 

48 

CE49 

3284CE 

LD 

(LCOUNT),A 

49 

CE4C 

C20BCE 

JP 

NZ,SETLINE 

50 

CE4F 

C9 

RET 


51 





52 





53 



J. BINARY TO HEX CONVERT _ 

54 



S ENTRY ... 

ACC 

55 



; RETURN ... 

E=UPPER 

56 



; 

D=LOWER 

57 

CE50 


BTOHEX: 


58 

CE50 

D9 

EXX 


59 

CE51 

47 

LD 

B,A ; SAVE ACC 

60 

CE52 

E60F 

AND 

OFH 

61 

CE54 

CD69CE 

CALL 

NBLTOH ; NIBBLE TO HEX 

62 

CE57 

57 

LD 

D, A 

63 

CE58 

78 

LD 

A, B 

64 

CE59 

CB3F 

SRL 

A 

65 

CE5B 

CB3F 

SRL 

A 

66 

CE5D 

CB3F 

SRL 

A 

67 

CE5F 

CB3F 

SRL 

A 

68 

CE61 

CD69CE 

CALL 

NBLTOH 

69 

CE64 

5F 

LD 

E,A 

70 

CE65 

D5 

PUSH 

DE 

71 

CE66 

D9 

EXX 


72 

CE67 

D1 

POP 

DE 

73 

CE68 

C9 

RET 


74 



;_ NIBBLE 

TO HEX CONVERT _ 

75 



;ENTRY ... ACC 

76 



;RETURN ... ACC 

77 

CE69 


NBLTOHs 


78 

CE69 

FEOA 

CP 

OAH 

79 

CE6B 

3003 

JR 

NC,NBLHI 

80 

CE6D 

C630 

ADD 

A, ’O’ 

81 

CE6F 

C9 

RET 


82 

CE70 


NBLHI: 


83 

CE70 

C637 

ADD 

A,'A*—OAH 

84 

CE72 

C9 

RET 


85 





86 



?_CLEAR 

1 LINE _ 

87 



;ENTRY ... IX-TOP OF LINE 

88 



JRETURN ... NONE 

89 

CE73 


BUFINZ: 


90 

CE73 

D9 

EXX 


91 

CE74 

DDE5 

PUSH 

IX ; COPY IX TO HL ’ 

92 

CE76 

El 

POP 

HL 

93 

CE77 

0628 

LD 

B,WIDTH-2 

94 

CE79 


BUFCLR: 


95 

CE79 

3620 

LD 

(HL),* » 

96 

CE7B 

23 

INC 

HL 

97 

CE7C 

10FB 

DJNZ 

BUFCLR 

98 





99 

CE7E 

DD36043A 

LD 

(I X+4 ),*:’’ ; ADRS SEPARATER 

100 

CE82 

D9 

EXX 


101 

CE83 

C9 

RET 


102 





103 

CE84 


LCOUNT: DEFS 

1 
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tu fS©A^liINPUT J PA$=INKEY$, 
READ ~ DATA *t?lTT» ^-T’XOFOR 
~NEXTI>*1 itl, 0 

IF-THEN-Tto SIN, LOG* t‘©|«&© 
L*‘ •J-f'I'o 

iliJXy 
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II 
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A *# itAi l <t 7 o 

10 A = 2 : B = 8 
20 PRINT A;“+”;B;“ = ’;A + B 
30 PRINT A;“x”;B;“=”;A*B 
40 END 


3xrfs< t. 
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|| HIMMS 

i z AZtA 3 y|£, **y 3 y tilths 
k i* 9, mt 11 r TA3 
ytf'g-oXi' z>a X 7 t:®C i t**, SA 
tt? 7/'L i ?*•„ ::m5A.i:F 


00® l. 

i /9 4 9 (Bint 5) 

t 1 iz 

4'&li 

tT-tla, Xti$3t:t) T* 

L x i 

? 

10 

A=l/9:AA=0 



20 

FOR X=1 TO 9 



30 

AA=AA+A 



40 

NEXT X 



50 

PRINT "GOSAs";l 

-AA 


60 

END 
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5ftx.Ti'iti'f.xl y/ON©* t, 
CONT |ENTER| 

xnmxiti to 

temtttlS!©;**!) (RAM) 4ffii\ £ 
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tta, t:x- 
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10 6=0 

20 INPUT "? KINGAKU=";A 
30 INPUT M ? K0SU=";K 
40 PRINT "SHOKEI="iA*K 
50 INPUT "OK? (Y/N)";Z* 

60 IF Z*="Y" THEN 90 
70 IF Z«="N" THEN 20 
80 GOTO 50 
90 G=G+A*K 
100 PRINT "GOKEI=";G 
110 GOTO 20 
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:^7°n/7 

6'j^o fc®*r»« l fc/t-rto 
UHJ^tlEALJto 04 6 GD (-fcTo), 

x 4 £> □□ (7°7X) r'-fo AjjUl 

fct □□ -Til) £ to »7», iE»?rIE 
Auto *t, 
raatofcWH#f*?ri fc«>-C^ts&^ 

Ixp^tT 7 o 


zfjvyny^oft fc, 

4-rrttlfL-0.'S*5r J: < jZ^ttSorK 
LcftotA/jorto 510 fir** 

t 998fTi-tT0KrDATAXt L T£ BU, 

7^F0X37, >fX7)Xn7(7) 
W«:*ALito Ht RUN t^AntlT 
to l£AW?r510fT**«i540ffi t'Cftft-C 
itto 4 *£(3* “” t*'< < SCDfcSft 
tc 0 
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ntL/:^o ?/Jn$ 

<4^0-^, ^t&WufflAtTfiEo-Ci'S A 
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4. if zf;u7 7°p 


10 M=0 

190 

NEXT 

X:NEXT Y 

20 READ Z*,A,B,C 

200 

FOR X 

=M TO 1 STEP -1 

30 IF Z*=“*“ THEN 50 

210 

PRINT 

X;N*(X)5“:NET";N(X) 

40 M=M+1:GOTO 20 

220 

PRINT 

o(X);“-0"5I(X);“-I“;H(x)5“~H“ 

50 RESTORE 500 

230 

NEXT 

X 

60 DIM N*<M),H<M),N<M>,0<M),I(M) 

240 

END 


70 FOR X=1 TO M 

500 

REM DATA “NAME",H,0,I 

80 READ N$<X),H<X>,0<X),I<X> 

510 

DATA 

"Q—TARO" , 36«i 59, 69 

90 N<X)=0(X)+I(X)-H(X) 

520 

DATA 

“PAMAN",6,38,41 

100 NEXT X 

530 

DATA 

“HATTORI“,12,42,49 

110 FOR Y== 1 TO M—l 

540 

DATA 

“DORA",18,51,62 

120 FOR X=Y+1 TO M 

999 

DATA 

“*",0,0,0 

130 IF N(X)>N(Y) THEN 190 




140 Z*=N*(X):N«(X)=N* < Y):N$ < Y)=Z* 




150 Z=0(X):0(X)=0(Y):0(Y)=Z 




160 Z=I<X>:I(X)=I(Y):I<Y)=Z 




170 Z=H(X):H < X)=H <Y):H(Y) = Z 




180 Z=N ( X ) s N ( X ) =N <Y) : N(Y)=Z 





^|JM4. =f;u7 □ >^WiLft#^ 

'J tf tl 4' t )\y 7 □ > ^ 4 b 17 □ > Till 

6 A,7°U >^7#4‘b^^ — T # f o 


«3. OXt 7 h 


10 P=0s WAIT 200 

20 INPUT"> HOW MANY Q.s";N 

30 DIM Y<N>,A<N) 

40 PRINT “0=<0: ZER0> X=<+> BACK=<B>" 

50 WAIT 30 

60 FOR X = 1 TO N 

70 PRINT “> Q.";X 5"- -."5 

80 GOSUB 300 

90 IF K<>3 THEN 100 

95 X=X—1s CLS:GOTO 70 

100 Y < X)=K 

110 NEXT X 

150 FOR X=1 TO N 

160 PRINT “ANS"5 X 5“- - -"5 

170 GOSUB 300 

180 IF K<>3 THEN 190 

185 X=X—1:CLS: GOTO 160 

190 A(X)=K 

200 IF K=Y< X)THEN PRINT"OK.":P=P+1:G0T0220 
210 PRINT"MISTAKE!" 

220 NEXT X : WAIT 100 

230 PRINT “POINT:";I NT<P/N*100+.5> 

240 PRINT “MISS... 

250 FOR X=1 TO N 

260 IF A(X)OY(X) THEN PRINTX", 

270 NEXT X:END 

300 REM - SUB - 

310 GET K* 

320 IF K*=“" THEN 310 
330 K=0 

340 IF K*<>“0" THEN 360 
350 K=l:PRINT"0“:RETURN 
360 IF K*<>"+" THEN 380 
370 K=2:PRINT"X“s RETURN 
380 IF K*<>“B“ THEN 310 
390 IF X=1 THEN 310 
400 K=3:RETURN 
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£fi>IAft®rT 4©T* 4, 
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SIC ©ftB 4#i-7-7, 0 C-AcD-t 77 
4 filii'I L Ac 1 ' £ M 7 L Ac'i' T"A> o Ac, 
fcl'7 *ltT' 

AT IA, fifcJUSoAcA 7 1 : BASIC C 
4 7"n ^Xt i'7#i4|)OiiA-rL A 
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5 cniAtotcAiF^iaxt-'r 

IA*4A *)fti'it* ? 4i'®CAc''lti;', BAS 
IC©j£ftffcfcA 5 i'7fc3fc(:lA£>3?4 4 
©£5tfit4©T'*4. 

&i:#A 7KDt£ 

$St * 4. *fi£©BASICTIA A t 4 4tt 
7v— <f-yn— 4l'» £ 7 i' 7 C. £ 

*• 1 1 ' 7 t, GOSUB CI*<fc© A 7 4$OS 
ti' : f) 4 <D Ac', 

®9lft (7'°7^-X) 4-ieJ£t'|t4i'. 
(D-fr t wfr* *5:4 ft i 4 1 ', 

®M*41Ea<>4i'. 

*«£Wc®tt, 

10 A = 1 : B = 5 : GOSUB 100 
CD A 71 :, $&Ctl4Ant GOSUB 14 
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10 FOR 1 = 1 TO 100 
20 GOSUB 100 : NEXT 
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a) GOSUBIA^® A A^t, 

b) r PROC SUB1 (X, Y) j £ 1 ' 7 , PRO 

C (PROCEDURE : 7°n : tSr 
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10 SUBl (5, 6) 

t1 it'U-emh-Ci S i 7 i:t S„ S 
T> A A SUBl TP'SeH $ nr 4 ttnii'-x- 7 
y * - > ti RETPROCr* S „ 

c) r FUNC KANSUKX, Y)j tl'7, 

FUNC (FUNCTION : 7 7 7 / a 7 1 
Mft) 2 nii|l|ft:tigr*So 

iStfitli, r RETFUNC~j-r'^$t J„ 

d) tntnOPROC, FUNC+ri£ 7 $ 
fti*. mmpmm-tr, 4**~3r**j 
L4tinii'4 0 4 m o 

fxf&Odlii, T. J: o i 7 — 0 , 

a 1 ) t ntnoPROc, FUNc^-rti? % 
ft«i«lWi:nft*SrSi:'Oit 6 . 4 L 
ilfSUBl Li.'5 PROCO + OX UO 
R]»!iSUBl_X 11' 7 «ft t L Tfilfc 
ns (“_’ , 7>y-' 4 '-4'!iSArvs 
o* { ;y„ 2©77*'-'*-fit : il(i$l 
x4i'i 7 OtU, 2 7 t niitf-Sl57>‘0 
#fl», fcS&^SrSS. SUB 1 (X, Y) 
•tr^ufc^iftfc, mmtkx: 

!i)SUBl_X, SUB 1 _Yti-’Ti'io 
2 QJft&ttjfW* tfffi L 4-t" ¥X' t 4 < 

4 S* s L**44i'o 

Ji'&L irii, d) t d')04>Mi LT, 
r PROCj t r SPECIAL PROCj © 2 o4r 
if*), SPECIAL© li 7 li d) CSV 4 i 7 
4 J Pot:tS ti' 7 tS*S 0 iLil, 

:n4d’) t L i 7 o K-fJoH, y 
X h 1 *s M'n ^ tPROC, FUNC4 
4 ’f£o 72 -t 774 i/ 7 °d y'7 Aj r*S„ I- 
Ut S A 5 '4 72**4 PROC£i:li BASIC® a 
-x> i 7 4 $&**** S © 

44 fcit, ^0/:S)i:i^-cu(i ! , P 
ROCtFUNCIi, Iit4 > St* 1 t'-A > ©iii.' 
4'U-T* So 

<fcC'| 6 Jfc J P i-*>4 tJSLT 
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MRS 4-t o It c> 7 » :: liftfet S 65535 
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6 321' 7 h ( = 4'M UY &HFFFFFFF 
F=4096M'M h itO&SfrfN- 2 L C 
Lit S $C S S © 1£© 32 k'' 7 h 

I- L T L i 7 o 3EftStfg«Jg$!lit©i 

i (i Ltfei't, 4fe*-7f?K&«*$M)^ 
•oTLibo 7~A, i 72*4 i: *>3.0 4 m 
4-„ 

t 7 n(if, r w^*s®^&Sjti'7 
OH^UU. -HfeWu*ft<D«*li 
lEiftSBOttift (ISIS) ti&ftg|3©tfrft (15 
IS) f'iti SCOT - ', 

DEF XPRUK&SRtfTlt iifttttfrft) 
A-F 


4 £ t L T L i 5 o XPR L m 7 ©li 
X PRECISION (iytxffflt) 
t 1 ' 7 3 'J'y'rXtb S„ 4 L i (if, 

DEF XPRUOO, 10) A-F 
ttS t 

-0.877.5XKT 123456789 

lootff ' lotff 
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FILES “ *. Bas” 

t tnit “~.Bas” 07 7OU:‘lt4Sf 
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feot, 

FILES , BIN (4 L < fibin) 

11 S t 7 A A-4vRjjstS 


ot7CtS 0 7x4-7 7-f^Oi#^« r A 
SCj 77 4 o ST. A A, 7 d ^ F t — K t © 
flf-ffl S Utt S o i 72"i 72'* S 44 7c/ 

7 AIM 

FILES „ SIZE 

f* So 
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BASIC© ^^4”# i5 14^:12 i oBbT* 
*So 72 L i.(i'CPU* s Z80*> 0 8086C^t. 
ot S, *^CIi®SlM:L4*'o72„ 

8 k"-7 h ISOBASIC* 7 / -t y ¥MK<7)*-t' 
*S4M«4r«t4Cii'4ti'5 2 t*-0# 
i nif, CPU*U6k"-7 h t: 4 o 4ISPit'® 
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lit A. 4 2 L liSi' S i 04*-o40 L <, 
r ft^* { *iJESn72 8 k"y L ffl BASICj O 
IT4 , (.'o>trtf sf s ttori's„ 
BASIClifcMl'iffflSiST'* S„ 72'*- 0 2 t, 
Bi-OtlJ; 0 iHtOtiJ. iS 4 

< tk'-fflt Lri6k'y CM- 

r(i32k"-7 ix/zirEi srt>z.7„ 

tot ti:t'A4BASIC* s air < Sict’fi 
iif-<"tn?|i.'r^or US0724 
BASIC i i 72' i 72 fflHllf 4-« * 4 m W 4 
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y x 1 1 


•y->t7Utn 77 A 


IF 


[ 


] 


(< A=0) OR (B=0)) 

AND (DEVICE$="EMMI:") 

THEN [ GOSUB "INIT-DEVICE": 

DUMP-MAP(DEVICES,0,15):i 
ELSE [ PRINT •• tit 4 . 6 * * ft ft US * I 
PRINT "II $ A, ! ", 

KREVERSE ( " S -f t & A 
’ENDIF li * Bg T ^ S © £ 

180 END 
190 ’ 

200 PROC DUMP-MAP(DEVS,START,LAST) 


100 

110 

120 

130 

140 

150 

160 

170 


: ’ 2 ft i> It £ tl & 

: ’ PROC ^ »J 17 £ 7 


Ji’IO 


c ti a iw i 


210 FOR I=START TO LAST 


’ t Bg 

NEXT 

RETPROC 

9 

FUNC KREVERSE(KS) 

R$ = : LAST = LEN (K$ ) / 2 

FOR I=LAST TO 1 STEP -1 

RS=R$+MID$(K$,1*2-1 ,2) 

NEXT 


C <D LAST {£ DUMP-MAP_LAST 


220 
230 
240 
250 
260 
270 
280 
290 
300 

310 RETFUSC R$ 


: 1 m ? * m m 

Z <D LAST 


jc t & m » 

it KREVERSE_LAST 
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Xto 
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(>4 5 A'tJXtt* 9 I -tA„ 
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i:A0 i Li 7o^®iiBASICt#m©-S? 

xt ©XBAsicisig*??M>xto %mms 

orb tH-Mi'i'm'/c; t i 
t * ? , i A'©# B t <" c w J? 5 F. 

= > t°jL—F , py7Hi:fti 
X±C7t VtX’ftmiXS i LAo LA 
i^T £©ffliICB3£t§ (* 4 (.'«*©« 
■*») **ft*>«iXi’it. JS«fci'*.ur£ 
SXto oi !), n 7k.°j. —;5rffl!gCB& 

Oh! MZ 1986.1. 


AC.i'OtW 1 ), M47 a77^'7 
hOEflJXB&i'11'5 c. fcXt. At*. 
B*Z80-?:7;7lg®LDiiHL :n« 

A — j XB4 < r LoaD (n —K)j X* •), 

r $SI£t4j ti'5*l*Xt. zix A'BX 
(>iEL <»tf ti'5 i 
<M.'AA*B4**tJf.«.'it„ Tt7^!II 
»C E 41* t ^X © a V fc? a - * fflff B, 
iE L < ML': Bt ©jgnfcSrSft?t 6 A » 
©i'4UTA©ifiiiXto 
3?@tMi'Xt't^A(i0h ! (ztiik 
5)MZ0M#«:«i'?fi.' ISi'lti*. ^ 
fti'oXt i 5»Li' i©XB* 1 H 
XSftBT^fnsmfctf-f- 

C r 7 Fo 

III BASICtt^iS07r>/\V-K 


U: 7oBASIC(i^X>^ffl0«0t fc' 1 ), 
ffiJ|i&%]MK> i ©S^XMJnt i' 
it. SI C±&BASIC©^, S2 CM 
tz%7»'7 7'<-9 bUM 
IlitfttAiLA.: t-XBASIC^n t" 
«t 7 LiiU L 
i 7oS03yS©*«fctBASICCfcB4if 
*iSrJt^X^S0tfcL LAi'tgitto 

at, latxwuHt, it, 

7 , !)7^Sl0^i:oi'Xft*', S-B 
ASICXB7*>; V* C #,-h 14 i§&, 1SH5-0 
&*C/P$rtt»fitoC0Ptt7’!> v*(P 
rinter) ©PXt„ HuBASICXBlSAp'©SI 
CLXtfao Ztllty/t >79 yfi (Line 

Printer) © LX to ktT-k'tl, .777 

•>*.¥—, x.)v . tMAX<A'$l'„ k 

ft** 4, s-basic©7 7'HuM#,©^ 


•EftXB BASIC fflfg©M*#CAO i CROPEN, WOPEN, VERIFY*?* 1 i 


Oh! MZB*UU<fc~ 

•«'fr*C It t7(t<7)t7frt> *L'***<^-r ?T 
intuit. BSItT < tt~„ 

«■« BJA (16) ?S#» 
9b-otiSiWtCZZt>1>'t)’t>-r< LtliLu. 
igi!*OT;b*'‘b4'.'W»* ! £>5 0 At AtfCP/M. 

**» At# (15) «riStR 

• tfcV\'vi]>5:te«>T I ^ C 6> I'OTtt'L^OT 
fc*. lftaj*<*|LL'i: - Z,^t>*'6>4-i.'«** ! 
#t'o fflB(t)1BBl*<t>J: 7tj.-fc(7)5-«-ttTtiL 

t'. ss* is- ( 25 ) #^)nm 

•fAlt-# - 1-'7 3 >C$ t>-jfc(t'* s ‘t <7>/\ - 7 □ 
> I $±tt. Oh ! MZBItCttJI>L*H.'# 
fct'TT. I't—7fr2^—7t-iui'6 1 I 
%^(7)X._iJ ^KltTB L l) t=f < BA 

SIC, v’->>s§«r»K4LTI5U.'tSt'St. 

£» (40) 

• L fc't'IC v•> >SgAT # T 
itU < 4'nTJTU5ff)f, 4'*'4'*'i*(t> 16 


77* < i^KCii>.'-7tt4<4n>T#Tt'5, 0 fc * 

t* (26) g«,m 

7)«C(i(51 A, t'EMST # 4i'F*3@(f 
*'i)7clttr. l'-7*'il«T-#SB* ! < 4t(iU 
TSfllntit. JEM (16) «A» 

• fetl2^#(7>/\- K4#** ! HL*'-n7cb. 

t'^T-fo A if *«t (16) *«* 

\ tzK^ntnixt. 
*«tl| S (16) 

• S-OS-nTMT-r*' (ftnM?4Uf ! ) 
ith^oT^cAnsch? 

»# (is) a«» 

•STUDIO MZCtUT<5 r d«*HMfTBlrj t 
t' * <7Mi(nI<7> r t Tt *' ? 

** (14) ati* 

• r PSG(iX‘)*iT'S>'5j OT r T‘!»*.j t 

litsjT-r*' ? taH (16) «*» 

• PITMANOTfSg, fc't*xt 19, 25, 26ffi$f 

tt*'. ©T #t= (16) 














mm basic“^»^”api 


.;xm|| 


1 0 

FOR I - 

32 TO 255 

2 0 

PRINT 

CHR SC I ) ; 

3 0 

NEXT I 


4 0 

END 



-?>, 'OJ 77 4 IMbi ?o 


X h l $r.ST < Aral'. c.n 
«7X4f~a-K32*‘?,255 it'0#-v5 
^^5rS^t8 7B/5At'to 
A.f&i Li 7, 

Ktfr 7*7 7 4 4 3—;u 32 

h t> 255 

20 ft 7°y>l' Jf-V7^^7- 

ti'-o ; 7 ■'f t?7 

n 7 

30fr * 7 X h 7 4 
40ft 

5T, ::f=‘P$( ) ; & k*©*7 7 

77 If £ ltz„ ') x h 1 ©7°n7"7 

7 7 Wt. ^rSPMtf c k * ? -T § 

it* 1 ? Kt fc'^lit7777*it 
i’H L i 7» 

II *+5$*Cyte05JW53 

17 7 7 7 4- ^gRiEffcM* 4 Aii* £ 

<7 i-Lci-Ot'liLci'i' t-Si-1 to fc k1 
ii', * ti'5ie^ULTt>BASICt'«»ii 
^©le^-tt**, t77 77 t lT©£ii 
iiMEPi t’ii7x7 !> x7ttfeo 
JIS (B*ISyi,f&) 

7 7 77)^BU*' r t^'C^i ofit to l 
*■ L, i*JtL-C^ni:4,ii:t7€'S 
li&i'T'L i 7o t ^ixt fc*- 

Stf&Lfr't7;6ftlA'l'©t'ii&t.'T"l 4 ? 
*-» #lfl*]f libA'^-Ci'T {> 

k i- 7 

zltfZ**,*) i ? 0 Kt ififtkJlS 
(Dt&bU, tf-i L < 
k *T*i Lfc. 

k‘ 7 ft ** ? — X., C. Aft-fO i-Bttf 

C Qi)\ Si I ‘,Ui)'otZ, k l-7 ©* s tto C 7 

tz < SAibSOt'liil't'L 4 7 *-. ^rSB 

*x 4 g'Wlifr t) £#Ati\ Fallo tztitb 

UZlXi'tzli.'? Mi&lX < /'Ji-ti. 

S«: ii i 0 i t 4\ ^ ft-ii® 

5A-r«*i l 4 7 . 7>4-Hi**!© 


g 1 BASICO±4-^t-<7)Sc*^ 


np t5" 

m & n 

7C ^ 

m m <r> m m 

AUTO 

X— b 

automate 

giMbr* 

BOX 

tf 7^X 

box 

a 

CIRCLE 

V— 

circle 

n 

CLEAR, CLR 

? X )T 

clear 

fritit* 

CLOSE 

9 □—X 

close 

U £> 

CLS 

? ') T X? ') — >,y-UH7 

clear screen 

wmm* 

COLOR 

© 7 — 

color 

6 

CONSOLE 

u > y-A/ 

console 


CONT 

□ > h , □ > T - 1 X 3 . — 

continue 

»tit* 

CURSOR 

tJ-VJU 

cursor 


DEF FN 

f7 /77>^'>3>, 

771717 

define function 


DELETE 

f’J-l- 

delete 


DIM 

j-f7/ya/ 

dimension 

tf>i, 

DIR 

T-*t h ‘J, T'-f —T-f T-7U 

directory 


END 

x> K 

end 

*Jb»J 

FILES 

7 T’t'JUX 

files 

L 

FOR-NEXT 

7 

for—next 


GET 

*f"j h 

get 


GOSUB 

u'-T-X 

go subroutine 

+fXiL'-f>^!T < 

GOTO 


go to 

-^Tr < 

IF-THEN -ELSE 

T 7 — -iz' > — x , 

if— then—else 


INP 

0^7 h, 07° 

input 

AtiTZ 

INPUT 

■f >X*y h 

i nput 

AtitZ 

KEY 

+ - 

key 

m 

LABEL 

-7 

label 

S 6 V IE 

LIMIT 

U;7l- 

limit 

mm 

LINE 

^ T > 

line 

m 

LIST 

•J 7 h 

list 

m 

LOAD 

P — K 

load 


LOCATE 

□ 7-- h 

locate 


MON 


monitor 


MUSIC 

^ x — v -y ^ 

music 


NEW 

X j. — 

new 

ffLi' 

ON 

tf > 

on 

-(ZSXfl'T 

OPEN 

tf — 7’> 

open 

M< 

OUT 

7^ h 

output 


PAINT 

> h 

paint 


PLAY 


play 

awr* 

POKE 

tf-^ 

poke 


PRESET 

tfOh'j-tz-y b, t-'J-bv h 

point reset 


PRINT 

XV > h 

print 

EP«ij-rs 

PSET 

tfOMoyh, tT—b’yh 

point set 

^^•a< 

READ-DATA 

V — K-x-7 

r ead —data 


REM 

L^A (V7-^) 

remark 


RENUM 


renumber 


RESTORE 

VX h7 

restore 


RESUME 

V i> 3. —a 

resume 


RETURN 

V 7-> 

return 

US 

RUN 

7 > 

run 

7£<bi*2> 

SAVE 

•tz —7* 

save 

®oTJ7< 

SCREEN 

X^ V-> 

screen 

wia® 

STOP 

x V "J X 

stop 

iLtf) -6 

TRON/OFF 

M^-X tf >/ tf 7 

trace on/off 


USING 

x-7>X 

using 


USR 


user 



OhlMZttStUUOrtffc'rtf. 

tO*xt, JT-LTOh ! MZ4»U.'0>4 
£K*W1-SOTT-*)*, 

S5—Cfflg4*U.'ki.'7;blt4„ LfrL, 
:nii r HLi.' j lUiiu<7raii4<77T-£>5o 4-tf 
4 b, JBl§£1t*4tttUf Z-IZ fe L J: -44 
(.'JblfT. ¥W1»U'4'A*>7Hf-fc < 4 
•> a =E 7 T-lttt <, *feCjtO«< r *»j 4 
OTT-£>*o 

7C, rt^fclA'fcb'Tfcltfcf,, L4U 
r ffll§4*54b4l'4bF*9:gt> 
4 j4A.4-1'j i(.'**l»4#b'i:a*i&.X-* 
ofco tzti.U r U □'7--77JUJ tl'TfflH 
4 fc'4 t' «• £Q b 4 It ft If, * f? OTSENTINELOT 
‘fOTALLOCATER'J’BOUNCEROTK^t,^*^ 
4b'frltT*i>*/ffl8lf£gBfr4Stf ^*@4 
«L < Tfr4A,4l.'j fci-'-jAlf. *7(J(.'4 


I'lifA-mf;, 

ittlZZttij tl'i rfctc45OTT'£>* 0 L 

frLfntt i *) „ 

* - T*A(f3S£si£-L't*<7>T-**„ 

T«-b, «*T-tC4 7 416*4*458# 
7 A, U 'pta—<, A/O/OO/O/OftE 1-5 
T5A-! 4<©fc. «53ffilSfSiJt£»t!-ft*fr 

>14, *4IS4-5fcO, »**Mft44-3fcO. 
&£7CH:44o4i5, 58ftXfflnt‘JT4A 
TA'„ Oh ! MZ(filU.'4b«g4A*A,fc'„ 
MOTTo^A^'bSUSOTSfcf T-, 7*4'51** 
0 4**4 -4*M84*I®4* 4, «<*4fc- 

C«>ft-4o »t?%-*0e*T-*(6)Jio'7 
7 t)*4***Xa' 0 SLl.'4b-7RPGffS 
a>.'*T-t' 0 Oh ! MZlf K7*>4*4-3„ t> 
4^4444! (tt —¥) 
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Ill Let’s Communicate! 

$T, w ti&'Cmm'C BASICt: OUT 

X 5 c.U'itzz l 

to ACIex. 4 4*114 f,J8'JC7^7 
Y*k(Dii itA-r fcfflf-uiic s ; t tt 
iiL'ito L*'l, £ ixiiT^y h 
«fc 1 tt4 i ?4 1>®-f\ 
t fe-Tt 14<.'I®I> * 
©«^is»t4z tii-rs 
***»: *«*»**•» T < 4 AO‘ft', 
£4 St*#* Ltaa©Affl?-i:jIt4’A 
oi'IJSAiH'SfKti*, 'ttiS-r'ttM 
tf IHsx. ZU&b'fo *) H/vi’A & ^ 
At Hi 4 m.’ fcffi*u*tM©rt8*»#L 
t t G i £ t A„ 3t&®R3f:SSSrt 5 Uli 
z<Dm&*l < MAt'c©ISffi©I%A^i: 
S-tU5i:tU, fqjf/jra 
—i>a yt'X'b 4©trii^ci''r‘L <t ■? #■<, 
ot'-r'c, dr-*'- K04-0nfc;^r(: 
oi'Tt,S4i:J tfetteHt. i<, 
SHIFT+, CTRL + , GRAPH* fc i' 5 S 
*i* s * o i t* ? , hA. 

—, a>hn—;i/df—, t*7 7A- — ^#L 

4 - * s g mix. s n a* ■a -4 #■t l <.' ? m nfc-r, 

^7|>77X, =t > h n — )vy°y x, 

77°7 xtiAiU A 
*fS&riiBASIC+4>i:»!!£L'C 
A'**, BASIC CPJtGt, 
i-CiSllbi't: t^xlr-unts 
fc&l*. * 

n* T ±a^®i.'t ) |i'A©j£il4cD-rt» 


*4 +-#-K«>BI** 


* - h x 7 

D? ^ 

CR, 0, ENT 

■J 7-> 

BREAK 

yi/O 

DEL 

f'J- h 

INST 

T >+!•- h 

HOME 

*-A 

CLR 

^'J7 

r 

*-V^7-y 7° 

i 

ti — V)ls70 > 

—► 

*-V;Lx* h 

«- 

*-v;uu7 h 

SHIFT 

>>7 h 

CTRL 

P > h P—;u 

GRAPH 

^77, ^77^7^ 

3S» 

X* 7^ 

Jj-f 


CAPS LOCK 

^tk‘^1/ (7) p-y 7 

ESC 

X7T--7 

(H)TAB 

(* u V>7;i/) 77 

XFER 

17^777- 

F1-F10 

7t>7'>3>*- 1 -10, 

17 1 -X7 10 

ROLL UP 

P-JUT^y y 

ROLL DOWN 

p—;u7'7> 

HELP 


COPY 

P t: — 


*2 BASICOTMS[<7)K*^ (JE*LC<l'fc<»«3S¥*4t®**aATfcJ:i') 


M » 

H * 

5u <7) 35 l§ 

3i m o> m * 

ABS 

77yU p- h 

absolute 

mw 

AND 

T> K 

and 

irr> 

ASC 

77*- 

ascii 

77*- 

ATN 

7-7 7 >v x >h 

arctangent 

mEm 

CHR 

*tx77 

character 


COS 

PtM > 

cosine 


EOF 

x> K*77 7 -f 7U 

end of file 

7 7 * 

EXP 

•f77tf-*> h 

exponent 

»& 

FAC 

7x7 h 'J T 7U 

factorial 


FIX 

7 Y 7 7 7 

fix 


FRE 

7 ij — 

free 

is 4' 

HEX 

A'y7X, ^*+t 

hexadecimal 

l 6 itS [0 

INKEY 

-Y >*- 

input key 

*-A* 

INT 

T >r'7t — 

integer 

Sft 

LEFT 

1/7 h 

left 


LEN 

>>7*7 

length 


LN 

□ 1 / T^xx^ 

logarithm natural 

i m*m 

LOG 

□ 7" 

logarithm 

tm 

MID 

$ K iL, $ *y K 

middle 

SP9<7) 

NOT 

7*y h 

not 

~T4'L' 

OR 

* 7 

or 


PAI 

y\‘< 

pi 


PEEK 

£-7 

peek 


POINT 

tf*> h 

point 

<±s 

RAD 

7'77> 

radian 

7‘/7> 

RIGHT 

7 T h 

right 

* 

RND 

■7 >7* A 

random 

T'fc >b»!)<7) 

SGN 

tM> 

sign 


SIN 

1 M> 

sine 

iE^ 

SPC, SPACE 

7^ — 7 

space 


SQR 

7 7 7 x 7 7U— h 

square root 


STR 

7 h ij 

string 

5U 

TAB 

7 7 r 

tabulate 

icr?> 

TAN 

7 > v x > h 

tangent 

iE& 

TI, TIME 

7 T A 

time 


VAL 

/\*Ux- 

value 


XOR 

* 77 7;u-'>7yt7 

exclusive or 



3fi 3 



ii m 

JIS 

» i L < 4’i'iU3 


7 ^ — 7 

Pb^PS 


! 

X77777 — '>3>v — 7, 

Lf*y 7 >J 7 — 7 

ME4 

*"J 7 7y— > a >7-7 

- 

7*7*JL7 t-x-v 3 >(7-7 ) 

^Ax^h 


# 

'> ir — 7 r , , #^fr 



S 

7*7- 

kju 

17# 

% 

/<—-tz> h 

/n*—- tz> h 


& 

T >'<*)- > K, T > K 

t> Kie-§- 



> > T'JL71—x — >3 >(7—7) 

T^7hP7-f, 77t>rYi 

X A 

( 




) 

* *y PlSflL(^) 



* 

7 7 7 ‘J 7 7 

MEPie^, RKIS# 

»tt*(R#rtTtt»r) 

+ 

7x7 

jEK#. 

j^r (RRrtTttir) 

, 

P >7 

P >7 

T*> J: A 

- 

7*^-7, y\*7> 

Rne^ v /n^7> 



K 

f'J^T K 

TA 

> 

7 x *y > x 

RR. 

44«),IJ^(}lIrtTIJiI) 


P □ > 

p p > 

i A,(^-T)TATA 

; 

-tr 5 p □ > 

t;PP> 

t>j:AP>7,(fzT)TA,^J:A 

< 

'J'4 ‘J 

*«■( «t v 'N 


= 

* p — 


t? 

> 

A4‘J 



? 

7i77a >7-7 

i^ppm-t 

(iT4'7-7 

(& 

7-y 1-7-7 


x—7yu, 7JI/7? 

[ 

A* x p 



¥ 

P3. R7-7 



\ 

/\'x 7 7 X X *> X 


i£44«b 

] 

x PPflD( >5) 



A 

r-y/'f-Ta — 

±rS]$^EPie-^, vJLP>7> , y7 

7 y 7 7 -tz > hifi-51- 

-? AS 

— 

y 7 >7'— x < >, T > y~y<— 

T > T'x * > 


' 

7 7+t>7'x-7 r 

7 7 7+Y>7'x-y 


1 

S* *y P 



1 


ARK#, 

f:T# 

I 

+*vpkbi;(*) 



— 

x T >, * —/\'—y\'— 

^-—y\*x < > 

-h# 

£ 

^> K 

«JtE-»#> K 

xyu^ 

o 




V 

Rj£i 

MjR 

TA 

* *' * *y P 



J 

***-y pP^U(^) 

RRiA 



+ J£ 

S/S 

X A, 

— 







TATA 




* * 
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BASICCAPJ'f©^?*,, btisb 

T-ti„ 

iST-fo f A4'i$f ?-7^ ^I«)/:■>a - h ^7 A*. -itlSsfcLAS L ± 7 . 


t A 4EA4' 7 'd/7A| ) 'J'J 4 7 °b t' 

7 A«i^as 0 11 - 7 ■bit-r, 

-7°ut'°y^coi]iiitc-ti\Mixfr£ Ln. 
::fiunwa t> CD** 14 -tb J: -O t ffif 1] 4 
fat'? Aif 4^*TA£ L 4o 
r BASIC li £ 4*fe*4ti> *) ft < b*> 
A4i'i-j ti'7#o BASIC4«tSC 
li, t !:*•< T°o^7 a4{£oTAS z t, 

/d/7 a 

i't>trA.-r'to r T—?j 4 Ma, ri ;xhj 
4tT4iiA, r ft¥lit j iJLXffl&l T<4'S 

^ ' o 

r BASIC ti’5#. it'ii 

r f —7j 4'tt 4Mf S^t'fB ^"7 a 4 
fro-tAi l j: 7o i Lb*‘C>4a>o4 C, 
4&At't>* , i i*itfA. tnf 


t>4 -o IJf L *■ C, X°n ^-7 a 4ft-o f A £ 
In. t{^fi4i* {>©* { £SliY-r' 

ti„ r !)Xh tfH07’n/7Ai|f- 

8t L 4 1 * © li mat © i Jj 0 -ft „ JSffl 4 a 
f, a 77 •yT’CWMlX AT < 4* 

£ <• 'o 

£ flT* {£, Let’s program ! 

|||x-vi rasm 

it^4u*4, 2 *7® ISA t B 4 A41 
St, fflBiJSt# (A + B, A-B, A*B, 
A/B), fc«ttfA®B?lS (A A B) CDftm 
4ffl\ 43i7ixt S X”b ^"7 A 4ft- : 9 
Hn. B* s 0® t §■ «A/Bfi7- 

tf&ZOX', fi7^lt ai4i' i 7i:li 
t. 


f I'Dif^-j-C t&b c>4i.'0f\ ±* 

4t* t & ttTV—tlT < 4'$(,*„ 

Jfoffl 

fc 7i4Lf-4i!/Hintffl£4iftb *) < ibt* 
ClifsGx. i to 

|||x-vs 

t-ffili, A4Ai]tAti©Hftl»6 

81 (sin, cos, tan, sec, cosec, cotan) 4ff1-SE 

ITiSt A/d/ 7 Afto BffiJ 4 ®t, 
0 t ->>*- 7 o -b#® 

lit'C.41* totlito 

A^L4ft®47^7>t:^85tS4«!) 
C50ft4»ltX* 0 i to t 4, l*J8|iiiS»# 
f ®^H® 4 *, cos90“ *' 0 C 4 b 41 '4 


fcO 4*--o4ib r !) x h 4A4 It A 
f < 4*5 t ' 0 tlilS£ frT t' S r !) x h j (i 
Oto07 , D^74lt'ti‘(., ■gJA.® 

fto 4 {> ® tit 7 t Jf.l* i to /o/7 a 

0 ft*- • x * 4 Mtkr- i 9 t-^TJS'J-rt 
**<4, i|o-a>TSi4©ft. ^(iSfi-j 
t fe 9 ®|jj{'H4t S *• f 7 i-fto 
r BASIC tt 4' 1 * 4 1 * -7 x * - 14 -if t * j 
1 1 * 7^0 44'* It: r 7--7j 4'ltMA 

ox h 11 Iradii*)! 


ft! Si 

INPUTX 4 2 ^jsE-o TA t B ®£»Cft 
4A4L, PRINT* IT fit, t 
'f>HiB=o®i&©StUT, czTli 
A/B0A “7/t" t SStk Lite i4, 
A4 L 4 &* { A & t r S 
X7-* ! iSUti f , dd-fiifetlts 

C t I- L i to 

C. ® 7° b ^ 9 a i £. to pg 71 /— 7 ° j: 4 ^ f t , 


OX t 2 HJftMfSt 


10 

PRINT 

”*** 

*>X*7 ***" 

20 

PRINT 

"*?!*’? i/f 99' *H" 

30 

PI=3.1415927 


40 

INPUT 

"urn* X= 

" ;X 

50 

X=PI*X/180 


60 

PRINT 

"SIN(X)= 

";SIN(X) 

70 

PRINT 

"COS(X)= 

";COS(X) 

80 

PRINT 

"TAN(X)= 

";TAN(X) 

90 

PRINT 

"SEC(X)= 

";1/COS(X) 

100 

PRINT 

"COSEC(X) 

= " ; 1/SIN(X) 

110 

PRINT 

"COTAN(X) 

= 1/TAN(X) 

120 

END 




10 

PRINT 

"***Jt7*y ;1 i-JV****" 

20 

PRINT 

"A 1 

B J 4Vt 

30 

INPUT 

" A= " 

;a 

40 

INPUT 

"B= " 

;b 

50 

PRINT 

" A+B = 

" ; A+B 

60 

PRINT 

"A-B = 

" ; A-B 

70 

PRINT 

" A*B = 

" ; A*B 

80 

IF B = 0 

THEN 

PRINT "A/B= 77^":GOTO 100 

90 

PRINT 

" A/B = 

",*A/B 

100 

PRINT 

" A^B = 

" ;A^B 

110 

GOTO 10 



10 

PRINT "*** 1^7, ***" 

20 

PRINT "0 ? -z’VJb'; 7KY 3“ ^Y>f? YfY> > /7" 

30 

T=0 

40 

INPUT "A= (or 0)";A 

50 

IF A=0 THEN 80 

60 

T=T+A 

70 

GOTO 40 

80 

PRINT "3*YY*( = " ;T 

90 

END 


2 SB API 


tnT’DA 63 

















? {15 /:® (:±Mtir*‘t'ti* 
tZ *), t— 7H- B#li “X/t" tii 

h tftlfi -o t3lfflfi*Ji:4 0 it, 
>SSg"? t < tf$ 1' 0 

|| ^-V3 &<Dfn(i) 

Mttttf/iAtj l, ^coft^tJjt 
StD/yAtt, O^A^jtStAijI 
*4^*, mttWIS^tmtJtS i 7t: 
Uli?„ 

8?iK 

0 4f AAi t 4 i -trA^S^4f t S ©* s t 
4 vh-rt, 

£-ft4rAftS$IB:T4rfflitL, A*?n 
Aftfcifc* tSLti'& it, 0* ? A 
ftA*>S*'0Wlt5Oft©IF~THENt'ft 
oti'it. C. ft* { 4 I- t i>-? i t'Ao t 

ik<D*$.k$LX < C ftOSffllBt: 

ioTl'it. 

II f-74 »©W(2) 

f)iIt|H]L'r—7-rt*' r , ^Hlli*££4f 

A-i' 

tSi-ito A*lfctt*flH?l 


tft§i Ai'ftlttt, A'ii.lt, ©i/JC A 
AlLAI!c* ? 5, <ktf3, Z IX Oti'AkZ 
Mz i S, 

5 + 3 = 8 

ttb* Lfci'O-rt. 8d*i|4f 5 i < fa- o CO 

> MT'to 

mm 

r— -7 3 ifHTi' i t* ! ', ioA<jtp 
tBiti:4o tit, **4®lt, 
i i) -rt> s km ^ & 4r 40 ft t'i: h i, soft 
VEM A(I)i:»tt4r A* LTi'S *ft„ 
SiTKt 4 t & liFOR-NEXTXtfUio t, 
3-tmt* L ft * f ^ tf-£S (rlESlti’i 

to ;;t r FOR J = 0 TO IjT'ft'.'*t: 

it®;It < A'Si'o 

SftgfctseLA, Ml- L h, EM4r 

9 i < M64l' i $b$fa4X°n X"? 5 y? 

4rt s 11a ? t't> i-a-Ao ?(>i:2lAtcK 
M 4f<^!?ij It, ASiSft b +5 a A i eftt 
WlTAT < AfSi'o 

|| f-75 SSXfEJjJc 

^^•Ili4f U -1 of o A A) Lti’Ht. 

Z LX, t°y t K4f AftS t, tit'A* 
L A ^ IS 4f o 41 f ■t ^ £ i : t S f n t"+ 
■^4fft- ;| ) i L i 9, AAjliinputX 1 0t:o 

* lJMiHrlgAlfc Li to 


•iSSitftlti 

* t t:x^-xlti' c> 4i'®t', £cA'lt 

Met. 0 '; + Ktttttti'ito 

J(Sffl 

# £ ft A* 4 0^ to@i:^«Si:Aft 

a tX^lo-^-i'W& ito -7--tt 

i'9©lt, ¥A < S' A It 2 oia_h<4 L © 4 
< -oolts: ttt. 

|| t-VB 

fit—t j£©f^Hfto R£4fAAit 
Si, ZtikZ^ t&Iie-frlttihiJjtS 
tntiA^fHLno AtHftClig 
I s t &h5<£>Pb|c 4 t o z^— x&AftS t 
? t: L i to INSTRMftlti' A ft 5 Mft 4 
i>f< A'Si'» 
ftU) ? ai^t 

: a +1 

t’jx : n ip <\ •+ 

mm 

z zxnk^mam mid$, rights, 

LENi, imteMoti'ito MIDSt'x 
^-xOfigfcftL, KSc^4f, @eh4f 
RIGHTSt'flit i) iti L X J$ C £ fj 11 ■' 9 t 9 
Cf'jt.'it. 

4+’, r—"v 1 ©i 9 I-— UtetilJ''— 7° 
ft*\ “Z” 4f A*tS t»7ti t 9 i: 
4 o 11' S *t'B c> ft i t o 

fSffl 

X^-XCDgfttlt^?t'^ St? ctft 
It, kQmi W t C'S’lt S t l' o tz?ck=l 

ttNto fSt^iJSSoacOtt^i (.'X. Sf 

In. ^ISO°n A4 i i £0 

ffiW4tt--9tt'to 

II T-77 Mlt 

'P Ltmfi'J4 t> 0) i:fm Ho:tt, 
#tt^cltltSC4f = >e§tt a i l t 


ox h 4SI (2) 


W) ? This 


10 PRINT "*** 3'9V-f 9 *9 **»" 

20 PRINT "0 9 -a99a9 X»h." 

30 PRINT ” p* h *r ,ij 7 t3*>* i,?* " 
40 DIM A(100):T=0:1=0 
50 INPUT "DATA= (or 0)";A(I) 

60 IF A(I)> <0 THEN I = I + l:GOTO 50 
70 FOR J=0 TO 1-2 
80 T=T+A(J):PRINT A(J);"+"; 

90 NEXT J 

100 T=T+A(1-1):PRINT A(I-1);"= H ; 

110 PRINT T 
120 END 


»;* v 5 


10 PRINT ”*** x>(7* 77^ ***" 

20 PRINT " 

30 DIM E$(100) 

40 N = 0 

50 INPUT "WORD = ";W$ 

60 E$(N)=W$ 

70 IF W$><”THEN N=N+l:GOTO 50 
80 ' 

90 PRINT 

100 FOR 1=0 TO N-2 
110 PRINT E$(I);" "; 

120 NEXT I 

130 PRINT E$(N-l);"." 

140 END 


r IS 

? 

This is. 

mm 

tc-pw'fkmoiimxt * 
y x h^atft^-s tft 

Aft i to ^j+t S i § 

It x x 4#A L 4 * s 

y x i 6II 


10 PRINT "*** z.a*)i/* F tvi- 7 ***" 

20 PRINT ”50^$'' h tvxy XV -2? tl'T?** t Y” 

30 K$="":N$=””:J$=" M 
40 INPUT "NAME= (or Z)";N$ 

50 IF N$="Z" THEN END 
60 L=LEN(N$) 

70 FOR 1=1 TO L 
80 M$=MID$(N$ jI * 1) 

90 IF M$><” " THEN K$=K$+M$ ELSE 120 
100 NEXT I 
110 GOTO 130 
120 J$=RIGHT$(N$,L-I) 

130 PRINT "= 07 *- : ";K$ 

140 PRINT "tvx : ”;J$ 

150 GOTO 30 


0 , 
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fcH BASIC“*7l»3&”An 


7. AtjJF^Silt r — •? 4 t ITiJ C i: L i t. 

Siti’-j-c bttffft®i:lti.';*>i.'A£ 
4®-t\ :;-flj;aT®3'3i:oi>-cjT<. 
tat < 4*3 i- 0 
l ) ¥«J 

2) btfiC (2 A(IF)tN-M 2 
ot b, (Atj A'—7 4 2 fi L4b®®fD) 
t-(t*-7r<)-(¥«J) 2 
3 ) @ii / (tfft) 

mm 

r--7 4 oms-nk^ i r-a&Aj) i 

Ti'S, 0 4Aft4 t#tJf4tfiftit„ 

mmBi-'H'Xvui < it#n®*-r 

(.MT(/'?i’o A*4 ® It ft® ST" it 4 
<, ffj® 6 o t b 7"y t Alllfftt: 4 o 4 * 
T’i'o 

oi>T'T''t* , f>, :t<I'9-n5t4Asb4 b 

a^*ia 4 1 ), 

4 t ? C L T ATiii'*•*'■ T'L t 7 „ 

HI x—V8 

i.' < ii b * *® # -ii-T'Z ft tft®ifti |j 14 A * t 
Ai l j; 7« i. I' 7 4'ItT'lf4<7)T\ 
jgffltii;3, 3i2®fi3, 2fflt4®fiO® 
ft ® £ tifi'ti'bti'o T i' ftlt*1BfjS(A*1#b ft 
S i ? i: L i to 

Atilt, tf3'7®£®;4';i-C':j}l'*6*- 
4iSATt*—7 4 Aft 4, £L4lt7 
* f 3rt*tfco *>4AC, ft®itltT®2'7 

Tctaiit. 

1 ) JSiaXitjS A 2 

2 ) ^-n >®£^ 
jSfft=v/ s(s —a)(s —b)(s —c) 


(a, b, clim<D^^,s=-^p L > 

2fflt tOmOft4 Ctt, Hft 

W»4tti’it. 

®£i2tSi34Atj 14 t & coi>T(iS 
? if b 4<.'t't&„ 3 a®ti3a* m<s?> 
4 Clt^n >®£5$; 

Bfl fft=/s(s a)(s b)(s c) 
s = (a + b + c)/ 2 

tfi'lt, 2 ffl t 4®P«g®ft*‘ih:£tf> 
4cit, Hftra»4flgo-rigati&;3®5S; 
T$ia?i:fiLti'it. jR*#® 
StTCIt, 0N~G0SUB*4«oTiiS4lt 

7'>-^>t»f-ATVi-fo 

J/Sffl 

ii(:56SS-a-, TOH&I^n 
®ifii$ b 3R £ 4 X 7 U L 4 £ te b L4t>© 
fit 41'T’ L i ? *■„ 

|| t- 79 V-S (iM' / 's}£l*.) 

I' < o*®Sc4Atjt4 t, 'J'Si'WU# 

IB) 4 7°n ^-'7 

ULn. i't>KJ>4 y — bT'To 
Atj lit—4 115] t't: l i To y—b 
®#i£lti.'Ai' A* b £ta s , :: T'lifSf 
^-4 r PSfoa t Jt^TigUt 4 £>£*** 
ftlf < bJltj 4 t 4l*bilt 

4'ii4 t b itc 0d5i|®t;j*®;),"*‘ib)Bi: 
'J'$i'&* ? A7T«.' < t 7 U L TAT < 4* 
$<■'» 
mm 

ae^ij © + ij • lb i' *>1 t* A t § I' £< 4 5£o 1 1 
Ti'-fblt'Afii:, 2#«6t:'J'3(.'&4 2# 
fti:. t ITV-b Lti'it. *t 


It N(0)*‘ GIBcStRt 4 A'ltT'To 80fr© 
"<=” 4 “> = ” Ct4 t A3<.'HS (& 
IB) i:y-h Li to 

ffrffl 

lOji^Ofla© y — I' 4 b Z tVCb l'l'© 
Tt”A f , lOOfll-f'lOOOflSICDt"—^4y— bT 
4 t 4 4 t b -o 4(.'©*■ ! 

tMi'4 < 4 *> it. ti'7t>ltT', <A<7) 
fJlT'b 7^'LiSi' y- b 4*StbL i to 

|| x-VlD S/iJbV— h 

r —9 OrM#4 '>3.)v y — b 11' 7 # 
biT'if') T A t L i 7 o 

iy^/i^y—b 11' 7 c0lttj‘ : S4t) b i:i' 
i 0 tolftHJILo'ibi'CDT', SJf>4i'Alt 
7*n/7 A4*>->y"LT < 4'5i' 0 
*b ft47°B y"7 ACO^Hti b O t -7C0((*f;ST' 

to 

(Sift 

sb^y- bitS'J^ak^Sk^y- b t b 
Hft ft, Jt&ftJiii.' y — b t LTW^T'to 
iI) J l4S4AftT b ^ —x LTA4 (lift 
4JM7TA4) tft*‘btt*' r , 4-lt*'4 
ftT' y — b *'“T' c 1 T l t 7 c7)T't= 7°n 7" 
7A©&‘t>T',£»ST J PL, ffi?IJ0F*i$4 
t'4*7K$t4 tllfttiti'^ti' tSi- 
it. 

J/Sffl 

ffipjfi*4 t' AS® t"- 7 mm 4ft 7 t 
£.+#*^*IS#^»fi4 t ® y - b 
14 b i to 4 7 i'<>411> i^y — 
b It SS 4 Jltt-t 4 ® T't o t7A-f> 
t LT®li*-®7°D7"7 ACCSfflLTAT 

< 4*3i.'. 


97 b 7 j j iffi It Its IJ X b 8 | |=ft)K®B« 


10 PRINT "*** ***" 


10 PRINT "*** V'sU'rY'l J ***" 

20 PRINT " l:f4A>b ItiVfr 

20 PRINT "0 9 -a-VJe? ” 


30 PRINT " 2: 3^>/ vtivflU'' 

30 PRINT “ •rvlj 1 kBO^* ^v7 " 


40 PRINT " 3:2a>^ +*'Vt 77 74*~ JUtU* 7 Uvf4A'' 

40 DIM A(100):T=0:T2=0:I=1 


50 INPUT "(1-3)";N:IF 0>N OR N>3 THEN 50 

50 INPUT "DATA= (or 0)";A(I) 


60 ON N GOSUB 90,130,190 

60 IF A(I)> <0 THEN I = I + 1:G0T0 50 


70 PRINT = ";S 

70 N = I-1 


80 GOTO 10 

80 FOR J=1 TO N 


90 » No.1 

90 T=T+A(J) 


100 INPUT ”f4*> = ";l 

100 T2=T2+A(J)*A(J) 


110 INPUT "ttiV = ";H 

110 NEXT J 


120 S=L*H/2:RETURN 

120 M=T/N 


130 » No.2 

125 S2=(T2-T*T/N)/N 


140 FOR 1=1 TO 3 

126 S=SQR(S2) 


150 PRINT ;I;°= INPUT HL( I) :P=P+HL( I) 

130 PRINT 


160 NEXT I 

140 PRINT ” y *7 3X^ = " ;N 


170 P=P/2:S=P*(P-HL(1))*(P-HL(2))*(P-HL(3)) 

145 PRINT " V*) 7 = " ;T 


180 S = SQR(S):RETURN 

146 PRINT " A-f^> = ";M 


190 » No.3 

148 PRINT " 7* = ” ;S2 


200 INPUT 1 = ";LI 

149 PRINT "kg7^*a> b^: M ;S 


210 INPUT ,,2 \> 2 = " ;L2 

150 PRINT "******t*ttt****tt**tt*t***t*t" 


220 INPUT = ";R 

160 END 


230 R=3.1415972/180*R:H=L2*SIN(R) 



240 S=L1*H/2:RETURN 


2 35 AF1i-S- 


7n77A ^5 












| T-vn 

B^If&ao^— W!)L LT.^yavi: 
#ft4Ski-ti"C*i li5. 5,7, 5 fij ft 

zot'li, ;£> ^*‘C'«?>DATA2:t:7~;>' 
©45*^4 , An-Cfe|>, ^id^READX-r' 
Se^JClscAf', t >*"A(;&;(jt 4 t l'o 
A#i£4 fc 0 i t„ 

4“®«f-*XC 7~ > 5? AntfsEffl L 
£ l A. RE AD £ X'ffl t-! - DAT A X 4 1 7) t" 

- * 5fXSu»Air < n * or, * t i^for 

~NEXT 4t"—^OtScA'tt® ISWlC^o 
SA-onur, * t lit'o-ruftfah-t i 
to Ut, RNDISJ»tINTHft5fffii'0 
~440$g&4x:'*'Ai; 4ftt: 

*fj£t-sX^^lTiU t. :n^F 
OR—NEXT 5fT 5X^-X, 7 
X^-x, 5#^ i tiltl£&i]Oft 
deft, 
f&ffl 


4(£.bt't:CHR$M®:4(£?, 4t'* ? £lf 
C>ft£ to 4>lSS®4 40 t Ltli, H* 
i£0£*4flF3£ l ffffl@S©S5 4#)* 
L 4 ?g£$ t nif £'> 0 *» ^ L i-' 

-%.i)H’£iM>i)' b l ft £ it A. fao 

|| t—VIE 10il^niig& 

lQ*^ArtLA«^ffi*0*ft (3jt 
^15:1) C^^Ltili^t £7°n7"t Af 

to US**, lli»Ui:fIt5 t S«7 

;v?7^7 h 5 c. 11: l i t« 
irffl*i:*«LAi’**4A*LA* t, 
£&(> fcOlojfit£4 Aft* J: 5 t: L £ L «t 

5 o n j6J&0*nfcfc&£&<.'A li. p 

^-C < A"5 i'„ 

mm 

z ? t,'o A/ 0/7 ao 7^3">; x'Aii 
Al^A*SAOr, l o *>!) SA? I T < 
A'Ji'o Atitf, 10jtO38ii385fl0rSI 
oA&i hi i) 8) t ^offiSrio-r'iU^ 
A&O (oil) 3) 5f^**c,»StiSi'A4 
0 tfi.it, c:083^38 4 8j®C It 


0 O(is#480~ 150fi~C'}TO -Cl' £ to 
;07n 7"t AO {, 9 O' i oO t'f V t 
liCHR$5fffioTi'S^Crt. CHR$(& H 
30) li»^O“ 0 ", CHR$(&H 41 )li“A”r, 
c. O li -5 * S 1 lit V£±X7» y 7 ^ v h 4 
i'Ai' l § t:ffif]4 7 x, X??i] t L-CSa 
St S t fi c#i' A r ^'*' c,HM t:* < j t 
£ cfB-g-AH'i'Oft. 

JSffl 

t o t (4Ht4_hlt 4 (5 li, n n j|i 
All i: iin it 7 '?7t 4 4-1), 

2 Ipo ~c y °!) > h 

7t> h LT(i(.'*-* ? -C'L i ? c 

HI x —713 =- = -®IStB 

^HU* 1 ^€lfi#^-41t^t 5 5-5 -'1 
I&I8 4 HU). Ml *K#4§-tt* 
ii*>L'«)DATAX4 1 t:Ani:fc< ;ti:L 

it. 

£m4A;tjt5 t, 5®A®7 M—a 
fc®IS#^5rS^tSJ:?uiit. 
OAAllig^'C'tsl^t^A'K'T't) iiU ? 


1BW4Sfflfc lTtt, DATA£+i:jgW, A5i, 385f 8 flUo A& D 6 t k OiSj 4 


III, £0i#&li:!£=§t 5 At^-C4^fi 


READ-DATA 4 8 ft U o A & 0 t'46, t 4 41> Itf'to Ut. 
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8* BASIC“ffM»”An 


MM 

fil7J®F0R~NEXT7"B -y ?X'Km* 
aildfij i:Lii>, Z frUfib- k &©FOR~N 
EXT7'p mM&^£6ii9 ijCJfX 

oil), N$(0,1) <DA<DMsi 


Kt"7r &■*—'?> L, 

■<X PRINT# 1 Xt *4 i.T—y° 

c^tt&A.-CV ifo jlf&t: “***” ■$? 
*©li, r"—7 B— Kft$Cr"-7 


^■T fcfrJ S tzub-Cto 
**< IT, DATA b- K'T-K-Tto C 
C fteM-frii*-* — KT' 7 7 -i » £ * — 7° 
>1, “ * * * ”* s Mo*> 6 i TS£9J !-!%& 
iiATi'ito Z0JR, H:f80f-ji 


&^«N$(1,I) t6ltTt„ 
;^Clt^TT* { , X C TliA/j L 
5iJ t |h] U‘3c4 : 5i|T'tei J: ? <: 

4‘oTi'ito fctiliT “T" £A*j-rs 
t, h f-* 7© 2 A* f , M Kfc 
Aj]ts t 4 h 
t&ffl 

feW&‘ k Z AT'ii, {&&L A*£*£7 ”]) 
> h 77 h LTffi-o A D, £ 

©r"-* {, AnT?Jlffltt5f±tfA *> 1-ftlf 

|| x-vi4 s—as* 

r —“7l3^i£?SL, is —*>'>■**7 7 
A A'fcfiEofc ^ L j: 

5 o t"— * liflij i p] L < & hu t 
mil, 

1 . DATA — j- ^ y 3 ^ (y>f #) 

2 . DATA-t>^ a ? 

3 . DATA SAVE 

4 . DATA LOAD 

5 . END 
i L it. 

*K 

tot* # ?c *> 

tO»T»C#HJlL 4 to 

rcrT*to 

^7J $>Xi$i? I & li “DATA” t c' 5 & fitj 


ij7H4 U 


10 PRINT "*** 2r 7V-1/X 7*v* ***" 

20 DIM NT$(1,100) 

30 PRINT " 1 : DATA ^V«> (74*) " 

40 PRINT "2:DATA *>**" 

50 PRINT "3:DATA SAVE” 

60 PRINT "4:DATA LOAD” 

70 PRINT "5:END" 

80 INPUT "(1-5)";M:IF (M<1)+(M>5) THEN 80 
90 ON M GOSUB 110,170,260,350,420 
100 GOTO 30 
110 ’DATA £a7V9?(74*) 

120 INPUT "NAME (or Z): ";N$:IF NS="Z" THEN 160 
130 INPUT "TEL : ";T$ 

140 1=1+1:NTS(0,1)=N$:NT$(1,1)=T$ 

150 GOTO 120 
160 RETURN 
170 ’DATA ?>797 

180 INPUT "NAME(or Z) : ";N$:IF N$=”Z" THEN RETURN 
190 L=LEN(N$) 

200 FOR J=1 TO I 

210 IF L>LEN(NT$(0,J)) THEN 240 

220 IF LEFTS (NT$ (0,J) ,L)XN$ THEN 240 

230 PRINT "tvi : ”;NT$(0,J):PRINT "TEL : ”;NT$(1,J) 

240 NEXT J 
250 GOTO 180 
260 ’ DATA SAVE 
270 KILL "DATA" 

280 OPEN "O",#1,"DATA" 

290 FOR J=1 TO I 

300 PRINT #1,NT$(0,J);",";NT$(1,J) 

310 NEXT J 

320 PRINT #1 ,"***,***" 

330 PRINT "COMPLETED" 

340 CLOSE #1:RETURN 

350 ’ DATA LOAD 

360 OPEN "I",#1,"DATA" 

370 FOR J=1 TO 100 

380 INPUT #1,NT$(0,J),NT$(1,J):IF NTS(0,J)="***" THEN I=J-1:J=100 
390 NEXT J 

400 PRINT "COMPLETED" 

410 CLOSE #1 .‘RETURN 
420 END 

• S-BASICffl£IE,6 

270 DELETE "DATA" 

280 WOPEN# 1,"DATA" 

360 ROPEN# 1,"DATA" 


CO 7 7 A & Sr O i X & 

^X < tszi'o k i l&i't 

270fr (OKILLX-T'J. 7 

4 to 

§-C, DATAAij-t-KtT 
to w v_ X l£, ^ H*J h. ^ pi?i* 

»«ewc«^aAri'4to 

h b ft * L' t''— & i)' d — K 

ixX C' 1 % (i, I 

AJj L At''—^ co#^*^ ? Ao 

X^Z>(DX\ 

4 to 

DATA#n«-=e- V'ttmm t 
rni“4*cor^«&t^> tit, 
DATA -fc — t KU 

^Hto 7C0T" 


ij^M3 U-Utti 


10 

PRINT "*** 2-5- 7ri/7 7*v7 ***" 


20 

DIM N$(1,100) 


30 

FOR 1=0 TO 100 


40 

READ NA$:IF NAS="Z" THEN 70 


50 

N$(0,I)=NA$ 


60 

NEXT I 


70 

FOR A=0 TO 1-1 


80 

READ NA$:NS(1,A)=NAS 


90 

NEXT A 


100 

» 


110 

PRINT "tvi Uv TEL No. 1 " 


120 

PRINT " Z 1 4VKY t7W7" 


130 

INPUT "NAME = ";NAS 


140 

IF NAS="Z" THEN END 


150 

NL=LEN(NAS) 


160 

FOR A=0 TO 1-1 


170 

IF NL>LEN(NS(0,A)) THEN 200 


180 

IF LEFTS(NS(0, A) ,NL)XNAS THEN 200 


190 

PRINT "tvx : ";N$(0,A):PRINT "TEL : ";N$(1,A) 


200 

NEXT A 


210 

GOTO 130 


220 

DATA 3*** o74f,47*2 7^7,474 4vV 4,^27* *X*h,a7tF tabu,*1*7 

7*3 , Z 

230 

DATA 0423-85-0000,03-383-0000,0486-25-0000,03-265-0000,06-583-0000, 

052-771 

-0000, 

, 0422-47-0000 
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Ao t*Sd?iJ© k ftA L X i’ ito 

■L0S 7 7 £f$# 

t s t x y -7 h* f t < $ taix ^ i to r 

-?<D'&M<D%.U fBJ*f> 7 f'f T 

(t-t^ra x7)£fflittftlS, 
njto t-«i©t"-7 cfjgt set -rto 

foffl 

t®IS 100ft KLi-f-7* f Ad H 
t* 5 ' (20ft) k o t t < $ A. AS <t 7 U L 
t d, r"-7 ©ITIE^ 7° ') 7 h 7t t * ? X' 
H^ctUto i*ffl6*)C4SX - 'L 

i 7 o 

it*, 7 B ->t° — r"t X7&’S>'f3ft>©t; 
IS7 >7" a 7 7 -fc x 7 7 i7K:f« Lt^ 
X < /L'Si'. 

HI x-V15 0M^fi5< 

t i o tHU'T-7*'^ < 4'oT L i I* 
i L to 11 •) Xffe •!, A’i' IS®l-1 — *7 4* 
#UUi„ 

OjE^5r«< 

t ttt£\ liacDfi$* ? 5-r>777t 
* f @tA*tst, i2Z(:@* J 

IEt/If * ? i§7K $ fxS S 7 I- L X < t* £ <.'o 

ffltll 

eftlS, 

t §t 7°n 7*7 AlSfgj 

¥4*©XtI'L-CIS4x'X'L i 
7 o FOR—NEXT tX", At) L tt7 7 7 
7 ££ CDiiccS L'TSSLTI'5 t'ttX't. 
PRINTS 11: * 4 SPC IS ? |&® gfcttt x^ 
-xfc*< t*»©^X'PRINT£+X'LA 1 
fsEi i tA 0 
J/Sffl 

4£t : £«•< :a tjfS-t 

0 x MsIlEgfcJfe&ft < 


10 PRINT ”*** ***” 

20 INPUT "lAW **r* = ";N 

30 IF N>20 THEN 20 

35 INPUT ( ItS^* ) = " ; N$ 

36 IF LEN(N$)>1 THEN 35 
40 FOR 1=1 TO N 

50 PRINT N$; 

60 NEXT I 
70 PRINT 

80 FOR 1=1 TO N-2 
90 PRINT N$;SPC(N-2);N$ 

100 NEXT I 
110 FOR 1=1 TO N 
120 PRINT N$; 

130 NEXT I 
140 END 


lit. 7'— A©7t h ^ 41, 
i’fli’i.'tli:, +7 7 7 7 

^filSti'^AS < 1 Sbtiito 

|| x-V16 

f£®© i r-Y77 

7X'££ ; Hh < 7°n 7"7 A 4*ft 1 S L i 7 o 

t — y MiSlSfidi:iSj®c?)£-ti:i^FT * 

S 7 l- L i to 

t — y/v'*—frfft t, 
i:®ti-4tt77fr^gsait. it, 
At-tfft t S 7 C Li 

to 11 iIS, AS?# LX r ^j t-tff 

tt, £ ©fiS*‘G A A A.tt —7^ 

^iiti-rfffl^aits.bif-rto 

mm 

m 7 s tL t <, fjf—^©sffl*st'to 
70ftX"t'-A(:i < fgftlNKEYSRjlicHS* 
oti'iti 5 , w0M«CUIS^0 t § Uff 
$tiTi.'t*#—* 5 AoTi'i to fsittfl 


X4t)ftiS'“”* ? Ad it.t Lt80- 110ft 
X" t — V MaLlS 4 ft# l, 120ft X' Att 
SfSC^fc'fk&Xl' S frltt'to 7*77^7 
7xfi 7 ©H£iMf?At i' 4' t ©X't fa< 

t (:*• < y-iiifi i t„ g#©«llS 
«£!))*• Ltd, »£»)*• L t* d ISti* 
ti':ni , **x't. 

||| x-tu AV=i>7i-Jbtf> 

^ — ?r#i“ 

itKifyv) l 1 ufigo-c^i L J: 5o ffl 
*Jil *?Z—'7<Dk~C* 
r Cj «r Kt Lite 

C^F'liLU^ ^ -7"±C0 K s 

J: 5 cloti' ito 7^=*y 2f.Mi 

ii, KB $ (I 

AtiTisz doff), 8o~ioo^tir\ 


ij ^ M6 


10 

CLS 







20 

X=20:Y=10 







30 

B$="+" 







40 

LOCATE 0,0:PRINT " 


" > 





50 

LOCATE 0,0:PRINT "X=”;X;” Y=";Y 







60 

LOCATE X,Y:PRINT B$; 







70 

A$=INKEY$:IF A$="" THEN 70 







80 

IF A$=CHR${30) AND Y>1 THEN Y=Y-1 







90 

IF A$=CHR$(31) AND Y<18 THEN Y=Y+1 







100 

IF A$=CHR$(29) AND X>0 THEN X=X-1 







110 

IF A$=CHR$(28) AND X<38 THEN X=X+1 







120 

IF ASC(A$)> 31 AND ASC(A$)<128 THEN 

B$ = A$ 






130 

GOTO 40 







•s- 

basic 







10 

PRINT CHR$ ( 6 ) : » K/C '>') 

-X* n 

CHR$(22) 




40 

CURSOR 0,0:PRINT " 


" ; 





50 

CURSOR 0,0:PRINT "X=";X;” Y=";Y 







60 

CURSOR X,Y:PRINT B$; 







70 

GET A$ : IF A$ = ,,,, THEN 70 







80 

IF (A$=CHR$(2))*(Y>1) THEN Y=Y-1 



* K/C 

I/'}-** 

n 

CHR$(18) 

90 

IF (A$=CHR$(1))*(Y<18) THEN Y=Y+1 



’ K/C 


j\ 

CHR$(17) 

100 

IF (A$=CHR$(4))*(X>0) THEN X=X-1 



’ K/C 


n 

CHR$(20) 

110 

IF (A$=CHR$(3))*(X<38) THENX=X+1 



» K/C 

>')-** 

/\ 

CHR$(19) 

120 

IF (ASC(A$)>31)*(ASC(A$)<128) THEN 

B$=A$ 







IJXM7 /<y □ 


10 DIM P$(13):KB$="CVBNM,,/FGJKL” 

20 PRINT "*** A m VJ> tlA *> ***" 

30 FOR A=1 TO 13 
40 READ A$:P$(A)=A$ 

50 NEXT A 

70 1$="":I$=INKEY$:IF 1$="" THEN 70 
80 FOR A=1 TO 13 

90 IF I$=MID$(KB$,A,1) THEN 110 
100 NEXT A:GOTO 70 
110 PLAY P$(A) 

120 GOTO 70 

130 DATA 04C8,04D8,04E8,04F8,04G8,04A8,04B8,05C8,04C+8,04D+8,04F+8,04G+8,04A+8 


>s-basic 


: IF IS^'” THEN 70 


70 I$=”":GET 1$ 

110 MUSIC P$(A) 

130 DATA CS^S.ES.FS.GS.AS.BS.+CS^CS.fDS.tFS^GS.tAS 
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4 A- KB $ ®4> <z t) o 4 A*£ ? AtSt 
:ti:ioT4-5nri'it. se?i|P $ iz 
1|£>t i t07'-** f Aft-r:**0-C', KBS 
CD 5 i£g (“M”) * S #S tltz GP$(5)(“04G8” 
oiOycDW) SrH&G LT^nti'ii'CD-r 

to 

It-oZ 

7 4 7°nfy „ 

fcJB 

'?y3>£;y>-t-tf-/f -if®4 7 (z$i 7 
c, 4- $ ft-c in t-oBAsic r 
t *‘4 0 ® c. t * ? -T'l> * t* ? , 

fe7 t.®7 t -v^igCDttfMiafcifgAA 
ft £" 6 4 x i t Ao E' H i L J 7 0 


^Sli:iDi, INKEYS t ON—GOSUB 3r 
fflA-S-ft-ti -4 I) ®ft. 

aTcDtfeO, X^-xt- 4 ffttt 
^ =1 n *s}g G ft, B® <z £h4 @ A s ^fi £ n 
i t„ •), a 

ftl'mfcffii: ct -o T, ON~GOSUBXr'^ 
®g£IS< ttV — f-y&vf-A.'C'-' 4CD-C“ 

to 

^li^DcDTK 
Xfflizlsgx £ 7 ft. 
Y-ai:| iSEt, -Si: 20 -r-f 3 n4IM 
o 4 D, *SgSI*j$?ftlfL 4 >>t *©(*<.'*• 
* ? t in. 


*fH BASIC“fif»^ M AW 

5t>t't. 5 #CDIII4;J?li.' 0 t)4AC, 7 

ffr-rrst nii'iSi.' li 7 t' l £ 7 o £M4 b 
>) r.m<p-c'^ zcotfz n®Wffl-c'?o 

7*11/7 A-T't * f , Ili'CtttLTi 
tfA. CHRS(&H41 )*' ;u A",CHRS(&H5A) 
t)'“Z"tS OtiXio'b 13ft <•' i: 6 A“ s -r l 

£ 7 o 

fc^Rlz L 4 0 BASIC®^ 
(ZtftlJf, ^n*>/if7*n/7At l 
T ittiit. 


U±, $-5-7°n^"7 
o/:fU7i‘o BKfttt*>4*‘o4fr L 


I||x-V1B tf-faP 

1 M nacoy^iw— iyaZ/^LTAi 
Li 7 . t"|im3rai4iCDt"->'i77y4* 

X^— X^flPt tt'l 3 n* 5 IMbt-S £ 
7U Lit. f , s7*7 7V'4«*at I'of I), 
t—-715® J: 7 l :#t7 / £ 
^HS-cVi'-TL £ 7 o 

Sift 


HI X-V19 

K®-¥-W L t'-A-C'to 
A**GZi-r%>)iit:tfL, 
ffL^x 4 iri:***‘-5fcl#Kfr£^ta 
L ®-Tto r Aj 3 ri¥L 4 C> # 4 -7—* f x^r 
— h t S £ 7 (z L TJE?S(Z!|4J^ Li Lit 

mm 

r AJ £ w L 4B# .ST* 4 - 7 -*i x * - h 
L, Z fctf l4I$*T>* > o4BYP414^ 


i'RJti*o40fttfti’rLl 7**. 4- 
M'S^Cl'tSo/z/B/jA-ft, * t 
t'^/t-4 t w ^-T'f^izjil'oc t * S '*S*-L 
Lfti tA. 

t'A4(zAI> 47°n/"7 a {,, t$4t 

n/"7A, ts GfiSt OaHoT 

C'ito i 4, BASICIit$4rn7"y A 
^^iZLiZti'L oTjE^'®tziiftS 
4it*t*t. BASICfc«fl$£t 4,BASIC-t'' 
ii&.■K, A|i 4fo7"7 A^f^s, t^tli 


w ftl£gL£fc?££ t r —-7l5®/"x 7-( 7 Lit. flf#®^'x h * Af£^® i Zb '7 b — b 7°a 7"? C,ta£ >) i to 


ux Ms| 


MX H91 

| ^#L4r-A 

1 

10 PRINT " 'HnU ^5al/-**>-" 


1 

1 

20 PRINT "HIT SPACE BAR" 



30 I$=INKEY$:IF I$><" " THEN 30 



40 S=INT(RND(1)*6)+1 


10 PRINT "*** J\ ft* y--A ***" 

50 PRINT "*********":PRINT "* *" 


20 PRINT " A-Z J S'* a> - tS'f 

60 ON S GOSUB 90,130,170,210,250,290 


30 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

70 PRINT "* *":PRINT "*********" 


40 IF INKEY$ < >CHR$(65) THEN 40 

80 GOTO 10 


50 TIME$="00:00:00" 

90 * 1 


60 PRINT "A"; 

100 PRINT "* *":PRINT "* • *" 


70 FOR 1=66 TO 90 

110 PRINT "* ••• *":PRINT "* • *" 


80 A$=INKEY$ 

120 PRINT "* RETURN 


90 IF A$ < > CHR$(I) THEN 80 

130 * 2 


100 PRINT CHR$(I); 

140 PRINT "* • *":PRINT "* *" 


110 NEXT 

150 PRINT "* *":PRINT "* *" 


120 PRINT:PRINT TIME$ 

160 PRINT "* • :RETURN 


130 END 

170 f 3 



180 PRINT "* • *":PRINT "* *" 



190 PRINT "* • *": PRINT ''* *" 



200 PRINT "* • *": RETURN 


• S-BASICffl5!5E^ 

210 » 4 



220 PRINT "* • • *" .‘PRINT "* *" 



230 PRINT "* * ":PRINT "* *" 


40 GET 1$: IF I$OCHR$(65) THEN 40 

240 PRINT "* • • * ":RETURN 


50 TI$="00:00 : 00" 

250 » 5 


80 GET A$ 

260 PRINT "* • • *" .-PRINT "* *" 


120 PRINT:PRINT TI$ 

270 PRINT "* • *":PRINT "* *" 



280 PRINT "* • • *": RETURN 



290 * 6 



300 PRINT "* • • *": PRINT "* *" 



310 PRINT "* • • *": PRINT "* *" 



320 PRINT "* • • *": RETURN 



• S-BASICffl^!!E^ 



30 GET 1$ : IF I$><" " THEN 30 
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&mzim$nx\.'ZZfay : 7AZ\l]LTlEL < ^ 

(SSKA'Z tX'th-o AtjSXSxL&lttilfJ: l'<7)T't * 5 , ^xlf ‘JAAPS it at L S 
I'Jt, *tib$:$))mifil-\M.ttzlto<»T'<v7<n7 L ?-v? Zm&LZ L n, 


Oh!MZ0M#(J3'H:Oh!MZ(:|® y i-tf-A 
* ? ) 0@SA.li, £*-ftt'A*-t4tJ£t:JS 
WStlTl'&fBy'xA y x t £@#0''° 

V3^i:A*JW;lti 5 feS *>/'t.©<.' 
it. Jt, *■ zT'RF-'jt't**, ?«/b 
tt-gfjE l < iiH'tr-rLi?*-? 

* ££ < 0A0JI*li r NOj /'tIU' i to 

+ <:tt r YES j tififctlx xfij; t 
0-0 S^ti.'St'L J: 7* ? , * 5'C'Xfi.' 
£ < it < t* 

Sl'o 

st, ?A£s«Fp1-c't„ r NOjt^iii 

nA#lifly*-fftc k <D7 °o t'x A £JEftt: 
t'ltt'L J: 7 *• ? Zftt:**LTIi r YESj 
U'9#{>^l>i;®i.'iti ! , tClitnoj 

t t^-rts < ^aa# 11' ij>-s l 

^ 5 t,gi.'it. *-aa#{>, 

Ma tv a a* it tut {> ? $'D„ z n*- w 
7 Agi- y x h 

CAST'S 5 J: 7 c A Ht. 

HI £5UriE^[zl)a'WCM)' 

A* L A 7 °n y"x a *«iE^ I:fjj*-A 1 ' J£ 
Ht LT(ti'A<.'^)#x to tifis? 
x, AtJ 5 x, x”b^x a g Jt-CDRSiti'^ 
««0 t x 7>4‘ t'-r'to J*fl3 ; x 11' 7 
©it, JS 7 A—Srffl L4t LXLi 7 w t 
U:5!.©-r, CAPSA—^t AA-* ? b 
tSc^tX^CHiti-A 
t't:ii;ti'|;i'j:5tt. zfttt, r 
n7'x Atroi'T^liiBfl^j; <M«yitft?& 
t5:trtD, tn/y Ag#i:^ 7 L 
A’l^i*f1s^<7)iSJ#.* 1 44htiS-s|i Z t A© 
-r'«i]©1S^i:|g') S to it’. 7’n^'xA 
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tl* J ry7 0 Lit„ iA, 10-SlJLAEWy 
zr t U1 00 feliur, 

*^^©f&0^ai|0*ffii: {) z, 4- 

nit. 

JiLt0li*‘C I) Act yg7>(:-g-xA-A 
tj'iA* 5 t) 6 "C L J: 7 o Wit A* t i> 7 
f^lli:#7 5 x^^'L-C'fcM^t t 7 t:l 
At S Z t-rto 

A*0t &frt>raai.' j pti.'X^ii, m 
(D{ HTl'4 totm t I l I, : (a 

ny) t ; (-t 5 a ny), . (t°y t K) 

t, (t>-7), 0 (-t"B) to (t—) i 

t'* 5 '* y i t0-rt$i:i±m L T < A*S' I'. 
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b&ttomM'Cft'i'C Li 7 tztoiz&z 4 
b ©ft. 4 t x If, DATA*© . (j& > 
-?) ©%'«&, ^£(c£©Ssii0, 

*»&, X'-c-x©^, REMPRINT 
* c t©^M J P*»&4-£t t'^4 iO-TTo 
f 5 It: tlt«*i:ftfc4i.'fc, -JE.I 
TIELi't 5f !>7 'b/ 5 A^ftc-fjt?® 

ft* L f L i 7 4 ift 7,111. L o%i'|ai 
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Sclatftif i <.'©-ft*><bo 

44" L, BASIC©*qi&* 5 * 4 CM l 4 f 
i lf& 0 £ ifA. =»-?> K J p'''°7^— *© 
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flOft. 
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4 t.IE L < ftb. K L I to Ayjffi-fftfeftA* 
ft!4*111—t— K±©I£i.'*i7 : t i'o 
tSi'it. ::fi 
ft4"ltg^$if 4 tSo4©lf, Abj©pg 
i: 2 fft «Tfff 2 o^ti'i:t) * 5 
Ufa 5 ft f Uoti'4 li-g-* 5 4 i i: to 4 

*• ib -f, i ft4 its^ $ -y 4 o b y * 5 2 ft 

Tf© i i 4 D x b c 4 7 1iSUi§ ft4l#-o- 

* 5 bfitt. 

$T, -£LtWjSoTi'4i.'t 7 4© 
i:i7-ii 5 %4Lt L i bit. 

w ft If I f *' © fT I - IS * 1 to 4 I^i "pb b 0 , 
■Eftlttt* tf'W!ft4 t Lt, ffs* 5 ^ 
©ftc* 4 ©C?6JLf §1 4ft' w t* 5 * y i 
to ECf, Ot'7©ftxi)4t-IS:t Lf m 
Eft5r b 7-®bTb)ii;L f A 4 11' 7 ©* 5 

* y it. tt*4A.'l4nt»JtLi: < I'tr 
b>ra»i.' bSAbjt4 c t-m4 c t* ? # 
<, ^M4 6 y c ttsftfc ^ffi-rto 

EJl±lfx^^'7 ^©^^©^-ft * 5 , 
<7)i7-ltCft4*lt©^*-fii;o-C L 

fttto r filfi7-7 7-t-7 ? i:0 

yj t*»H4* ! , 17 -y7-t-y© 
inXX X©gn#4"tt-f b+^f7?7/i) 5 f’ 
§ 4 ©ft o 

■Eft-fit, i7-0HBt4 4'Wi 
7-%^ft tlt*4 4*^i:ltE 7t4*- 
ti'i t, c z-C'3-7 — J -7-fe — -^<Dm¥ 
Sb^-* 5 ^|i-r < 4 ft Iff to 17-ft-t 
-*©a«I t #,Btlf BASIC*t£»(ft»© 
7 = ^.7^) C-SgtLTioti'Jt 


St'f t„ 44", 1-7 0t-7©Si*lt* : i.' 
t07tb CT'Xl' 7 t"©tt ^***1' t 

4t'tSi'tt©-f, wwirit*frW4* 
f£3rx-7-7t 7-t-^'^JCIt-s-f^i t. 
E©HUCr"'’i''71"©®^ t 

*S 4 f t ^It^tft*'4ltftlt"4 y i -tt 

Ao 3-7— * 5 %^L4ft* 5 -7 7l'f-Xt— b 

7t 7 b ©*§£-, tr®^^fx7-1:474 
©*'S*lt-o ^ y S-tf 4'E'M* 5 i)4*‘ibfto 

3-7 7 -7 -t — £7*' lb -A 7 — * 5 |2 c -7 4 

iHbfcltiE-rii 4^^-lt Eft-f'OK-fto 

#^-f^4i'^lf £'7tftlt"ti.'*'o t' 

7>i.'b>#x. ib ft4 tst'it**, fiybcfci 
Ibftfi.'4:i'^i£-ft* t -x7w^xt— b 7< 
> b ^2ftC^-ltT* : < ©* 5 4i.'-Aft?A 
4ttxtto 4 t xIf 1500 ftf a 7 - 1:4 
7> 4lift, 1500ft©S : |y)©^^-4't)'^ L t 
^y ^1501ftc L t to f ft?i^ib-tT1501 
ft-fx. 7 — I: 4 ^ 4 ib 1501ft©11*/)©^ 
4-1500ftC#L i t.f ft%-^yiELtl500 
ft* 5 3 . 7 — c tj :7 4 t |i (:#$ ft.4#^* 5 

4ft * 5 ft*‘ y i to 

2ftEU:C-9-ltt*lt4^-g-lt, til 

4If 7 **-¥■< ^-7*>y i to «5Ari'^ 

i'4I*lTAf < 4"5t' 0 

Eft-flfi-'t t'f 3-y-t -7-fe--t'glJ© 
T'Xl' '7 t"-7 — JL 7 A'-fto 


NEXT without FOR 

(13) 

FOR without NEXT 


RETURN without GOSUB 

(14) 

Undefined label 

(16) 

UNTIL without REPEAT 


REPEAT without UNTIL 


WHILE without WEND 


WEND without WHILE 


St ij -7 a rtltS-BASIC©^ 7 

-IMf- 




to '<<K 

20 FOB 1=1 TO 9 
30 FOR J=1 TO 9 
40 CURAOH 3*I,J 

50 PR I XT I*J 

60 NEXT 
70 NEXT 
80 END 

40lTT- r CURSORj5r r CURA0R j ift^Pol 
iSAfcC i C<£ 0 r Syntax error in 40j 
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Z ft G ©i 7 — li*#*^ L X T 5 

liT © a -7 > KL A 1> A tf> t: 
i£2Z 6 f>©-fTo 1 FOR-NEXT, 
GOSUB-RETURN, REPEAT-UNTIL, 
WHILE~WEND0ttliS£#;lT3#|£© V 
x b JiT b 9 —U0 3 - 7 'y K* ? * A ^ & ft 
£ Oft© LIST CWIt 
$£I£© y x b A r V x b j, /'"y 
y x b A r LIST j IfCiCLit) 
5rI5t, £©ftifTAA;fj LSHiTi'A 
bTlilflt L f t f> 5 — U<D a-?> FA 
*©fi-©«t»(:A* LSnTi'/z®?r^t' 
Ht'U5. L*‘L, y x b iO-ttST 
A b 7 — ;£© =1 -7> F AHJ1TA ©lilt o 
Z 9 HU' b <DX\ £4>liBASIC©Z £ A 
ft] G Ai' t i'tt 4 TA 0 

£ A*. LIST _h© L < X b , li 


xts) u&b ft y i T* s , znii<A©x. 

7 —y« 7 -t - - 7“-C © © PS C IT 

L ( ^t. 

£©ti*'i: b, y x b ciiAi .'©(:%.% 
t: A J] LX Li o AA«t>i:z©;X'>—7°© 

Z©*§ 

^CA^Ltl *oAfrC'56£Tftlf 
ffiflAl'CQT'T**, jEU'»*5t'5g£TA 
:tUHt. fT^'G, 17-©?I4 
l Afr©««©LIST APHT^A'i^b* 
y i To 

Undefined label 11'9 x. 7 —liGOTOnp 

^nA t'T'V-v >X°T 2>±(D'i7 IMM??'**' 
a* LIST*i:#*LA «.' £ 1= i:%£L£T„ 
zftti, x-7— ©5§*t ATt©^> 
^•©mtfTt©^#^©^^ LIST * ( 

T A ** £ 9 APUT A £ To 


—x°i:A A©a>tiPp E lt:.g.>biUA:A{>£t.' t 
gi'JTo z faGa^O £ ot: £ £ * G ftA 

a a 1 1 ' 9 © ii, f^'y/© m l x 
9 u A A £1' 9 z £ T'T„ ::fl7 rU 
7T"£li, HftlUlttftA £*>- y T^T©^ 
HliA* 5 XT'* A tC'9ffilit:jtoTi.' 
A©r\ AA5x©Mf*4LBoT< 
A*$ I'oTAtotb r rU 7 T"= y X h tLIST 
T UU T 1 ' A flSlpff ?f ?£.SL LBTIET A Z £ j 
T'T„ S*$©Z Li. LX, 

D 7 "7 /> ©T"'? 7 X"i: !£•?■©£ iiifflT'li 

li>i'liLW«4 ! , 4-®©!e*©StfJ 
X'fiimBcD'J x b Ai'*‘i:IEl < A£jT 

tfilo-ci’it. 

X7-©MI A ItCA il 5 x* s * Ail 
£■ £ 9 ©liTT'Ljt^'A t is y r'T©-T', 


t,GOTOX^ L'X'^— x°l*li:?FIO : iiA. 

T'^A tz&izznc, ©x. 7 —* ? fe zi, Z L 

t#yj:To ^nii, ^©GOTOX©?FIO ,; ' 
9fc©fi-#^- (iAli7^^€) A^oTi.' 
A A * T, HB ^£0 (t 4 © li A *■ A *'H 
L i'©T'T* f , t y *LT*y x b L LIST 
X'^'-Y >X°i:MT 4 (GOTO, GOSUB, 
IF) A4>L'I :fi 7 T LTAA Z fC"t. 


Illegal function call 

(3) 

Over flow 

(2) 

Subscript out of range 

(3,7) 

Division by zero 

(2) 

String too long 

(5) 


z©TTi/—x°Azlii:AoT, -IT£ 9 


z z-r'z©^vi/-7°©x.7-* ? ai5)gia t 
<••• 9 ©li, £8c<:&o/zte (X^J (►•&«> 
t)A ; ftA?Wz U'7Zti:-9^t. 
T'T*■ G, ' 7 A L li, £ z X's&-o AfjS 

* ? ftA5nTi'5 0*‘, i A, Mo Afi* ? 
ftASftAJSHliffi-C', ?filit'z©Aii 

5 XCi A©*>A^^ih«> A Z £-TTo L 

*-l,BASIC£i,'9§ig©ttK±, 3gfScli 


i Ali, x°n^"7 a©|)j|! Ail 9 (b^- 


L T Z ibi G ©i 7 — A 7-t — |SI—iJ'Vw 


T'n— -•f/i/A b ©, O ^ y, 7'n/7A^ 
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tt* BASIC“e»^ M AP1 



•oi'T L ito 0- fcocttBASIC® 
TR0Na-7>K (b *b MATRON***4 x 14' 
T't* ? ) 4f?6fflt 

L RUNtS t ft A It §■’1'41575 L 4 

tl'9 b<OT'to 

fc/w',*** , a-rr-cB-c’j6jL4<i' t s* s * 
o aD. affis^mnT Liofcdt\ % 
P&CI4* 4 OISCtCo fc 14 ft 4 4 -a-A-o 
4 < PsEhnsf-fSl4fn 7' 7 ^t<O^PJr 
i:STOPS4*§«, BsSiJWliSIfr 4#Tt L 
T$J£©Pit4#jR£-yA 0 Ui'C.fii' 
t LTt' < t t' A 0 #T't„ :5 Lt’r 



: -5IW^*A*5X 

1 

1 


10 ’<<pgftst»>> 

20 INPUT "N=";N:IF N>34 THEN 20 
30 M=1 

40 FOR 1=1 TO N 
50 M=M*I 
60 NEXT I 
70 PRINT N; " ! = " ;M 


20'rfT r N > = 34j £ r N >34j 
t Ctztzfi, r N = 34j t Ltzb 
r Overflow in 50j 


If 3E»«0>4T^I!3iti.' 


10 ’<<3pj*, . gs m <8 £(DATA=0T- *1 7 )>> 
20 N=0:T=0:TT=0 

30 INPUT "DATA:";X:IF X=0 THEN 60 
40 T=T+X:TT=TT+X"2 :M=N+1 
50 GOTO 30 

60 XA=T/N:SD=SQR(TT/N-XA~2) 

70 PRINT:PRINT:PRINT " NUMBER=";N 
80 PRINT " TOTAL=";T 
90 PRINT "AVERAGE:";XA 
100 PRINT " SD:";SD 

110 END 

401fT- r N=N+ I j £ r M=N+ I j ULtzZiZ (C 
4 *1 r Division by zero in 60j 


ftT'*i lift) 6 

muz&zib&oi t <ot\ dd t'pm 


* 4 t„ 


t - 7 7 14 S if-CD7° a 7" 7 y 7" 1,1 

hfitl) 4<0T't*4 ST0P£<0Aft4flg 


pf±xxm.-<iz I- tfii'4to 
4M&I4, E<0^l!t<0fit* s itoTi’AA‘4 
fJE'Jt S d t *• Cte* 4 t„ 3-7— <0%£ 
L A It© list 4 -a- xk ©i*i ^4 ft 

StL 4 to S-dT'flEbfiTi'5fti ! 10 
4 P> I4T»1IH* 1 4 -4A.* 5 ', 2 -tELL©^ 
CI4, -x. 7 — 7 y -t — £'©H;i!4c4# 4. T A 
4 to 

r Illegal function calljT * 4l If3-?> b" 

^MtSc©^, o"7— t* s t&£©tEISI4 
iiti'40-T'tl, r 0ver flowj I4»ffi 
COijtSC©PS(-42 I 1 4to r Division by zeroj 
IfOT'flJS t ?§3i L 4 t (tan ( 7 t /2) T b 42 
d 5 CO"C itS!;)o 4 A, r String too longj 
t & (A$=B$+C$ 
4't") 4tC5§tiL, r Subscript out of 
rangeji4Sfi^JCO)3Si 4 OAlst'Plt 

4f£ffl LAO L A t & CilSd 0 4 t, W± 
<0 4 9 fjrlttfiS t £»©*££** L <?> 
t < A 1 4 to 

4 A, r"'<y7- (—pfetfjcb) ©f£*f- 
St It, $S©fit4*M L-t h*- FT' 
a^S-ttT** tt'A*1£b* t) 4 t (PRI 
NT A, B04t'©4 9 t: t 5 )o d ALT, 


?Ai4, 4 (Dmkr. t'dTio Afit* ? ftA 
5ttA*‘4#H4t. dco^ffit LTi4, 
£©*'&©aiT< SIt 4L <b Alt LCIHH' 
S (HuBASICT'l4SEARCH4i£ffl) tl'A 
d t * ? t <* (:??*•£/ 4 to t'd #-©1f ©P«J 
i&t'* s 56.E$ ft- S *■ b L ii 4 4 A» It©$( 
i'lLtPU: <0115*14 *• 4 1 SffiJ t: 4 
A T' L 4 9 * s , I4**C dirt I’oLJiiii 
4 1 '4 9 T'to L ** L, dO^iST'MJti.' 

*f?gjE,T' & 4 1 ' d t b * 0 4 to At Ilf, 
Ati'5 A fit 44#-9 t L T A <0 

tfJT < Sfrl4t^TjEL < T b, ti:A = 
B t I'O A£i ? * <3, ^I4BC0I49 Cito 
Afjt* ? ftA $ fix <•' A t l' 9 & b h h t' 

<o T'to tJt!4, r A=jti.'9ftA*co^J 
a.«:{hT < bits LTt'*-4 < T 

l4t'lt4-t4Ao d A 4oT < b t*-4 *> 
< 0 )A$Eri<: btzoX L 4 c' 4 t* s , t'O-f -9 
t” 11' 9 <014 *fP 14 fflSSI 4 b <O4 0Tf 
tS4ft*T >4 x b t LIST 4EJt^T < A' 

$ <.’0 

SiJ<0^i£t LTI4, fir- x4L4* ? P> 
^ftcoft4f-i-9 9 LTt' < t <■' 9 b<0* ? 
*04 to Afel4t'ttnA4 9 1 : b v'-xt: 


t 1 4 <0 t I s 9 i' A fit 4 t oti' 

t 44)**oTt'4It 
nifA 4 < i' % 4 tAo L A * ! o T, 

I47°n 7*7 5 >4"<0^11^ ( 0 X b <0S4l4 
mm L T t' TBASIC**ii* s * S ) * ? l? 
5R54L4 to 

IU±<0 4 9 I- LTt' < ti'<-9**©''^l4 
HJl.T'itST'Li 9o L*‘L, d<04 9 
IS:4 j6oTI'< 11' 9 <0!4®fifl^{:l4^ 
T'b^P^t:l4®IA4tP B 1* ! t-*'5 d t* s * 
0, L 9 ■ 4? * P> 4T 4) Dll L A14 9 

i'tfi*fUi'b Lt.4tA„ b L, 

Ab 4 4ib 4 I'TL 1 9 o I'tncL 
T b 41^(4114) * 5 -E'ST to 
ST PCS (ftA*C4 0i*4t4 b<0 
t^T, A = BT'I4A, Bffi^tb) * ? ttiT 
< A 4 tI4 4 -9 A < IE L < T b 4 A'i 7 - t 
4 Aig-S-b * 0 4 to d ftl4, /d/aa 
< 0iiit4L4S | lf|it 4399 K0/*7^-fii: 

1^0 4>4§£-4 t' T'to ^M:7P-7”co® 

^COiti'C 4 4b <0* s £ < , A t 4I4F0R 
-NEXT-T, 1004*0 litt d*4l00 
®i^ 0IIL T L 4 9 d t 4 t' C 4 0 4 to 

d C0 A* <-, d CO^'Vv — 7°0)3-7— 
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t S t1' 5 ©li i < * 4 e t ft o e ftti, 
T’b^' 7 A0 |> v— X t S t ft*‘ (> it 
*\ ^y®.*s^$:3r#tj'A'-7 0 ©®]»^ 

LIST 

Hi? ^t S0§H:iif£{>flgf&L 4 to 

it±li, cot^-tMcit4:t 

ft. li*’ t- r Subscript out of rangej f 

li, S£5iJ©AI> $ ^SeIKDIMS;) tTi'S 
ff i- fill is t' * ? * S t t' 7 e t 4 # L G ft 
it. 


Out of data (24) 


7-fc —'t'^'ttSAt' 7 *’li 

gift LT, DATASt-i S t 7 7>«« 

O-tocli, 

DATAXfci^Oli^jfiO^, HE 4 5 
&*?5$© I) ©* s £ < * *) A*®Pf CfiSJjii' 
t’t t't<.' 7 e t * T SLfif L i 7 o PiUiEt' 
©asuii, it-o-rt'S 

i'*‘t'At') :t t, t"-S£©4©* J H& 

7ti' 5 t t' 7 2 o*?* 0 i to 

t"-S©A* 5 x* 5 '*-? Ait-g-CIi £ 7 
sj-ti-n, pcG^tt© 

x"— 7^7" 7 7 4 v t ©r"— S ©S£ *) f * 
ftli'^TitS ftS t-t 7 ^S^jBjjiiASLftS 

tt'oA4©f, B^Sttciif^SA < 3. 

7-* 4- o i to 

£©li*‘liE'5i'5:t cA S*>li#£f 
§>f, lit A, if & kj> £> i 7—* 5 iae 01# 
Jttfiit. l*>4, t"-S©&* ! 't- 
t'i#&liAt'^AiH i) SrUJLt S ©* ; St L 
i'tt'7$:ftLi'4©fto ft *’ it DATA 
X©A*li^t:t»fii:ft 7'^W* S * Ht. 

fUi, f—S* ? #Sl-£t' t I t:li, V 
x 4 H&fKflJoA KcSt 

A 0 l A*'-it A* 1,1,&t L^Bfl-^A* 

7 I- LT t' i 

to lBi:*i'A2 Af A*tS tt'7©4, 


f— S © A*B# i: ti#c WS&f t. 

$ T, r Out of dataj t t' 7 S 7-t—#‘f 

t* s , eftliREADSf'MAiiD'f-S* 5 
#£LAt'tt'7^Hfcf, READS:©* S 
fff56£L4t. SHtLTtt, ±fa^ 
ADATASXiR D * s * 5 (£5:* ? 1 0 A it 
1 1>7 e t t, READS:©li 7 (READX© 
* 6 ft t it US © 4-1') tlffiH*** 5^-g-© 
2 it ft 4 to L/t’ot, e©x. 

7 -* s %£ L A*if-g-c li 4 ft"- s ©ffla 
ffl&i'ililfif e*-i: 
A* Lgnt-t-Si^ Stiff t. M 
* ? y x h t list f-g: i-c i'#xif, -e 

i»HliREADS:{Mt:*S t#i.itftit. 
tBt* s it7 'Slngfili* 0 4 t* f , t|5] 

L A it r Out of dataj liiSlii-tf-Ao 
READSJJlf©^') ti'7©li, f'-S 
©ffl»i yM*ii*’II]»* f £*’oA©ft 
*'b, LIST 4-^.f MlHlM^iAi ftTt'S 
*■ 4 to e ©ift-g-i: li,FOR~NEXT 

ft £ft£*SAf f SCt * ? £ <, A'—7° 
©ifei|«fc(FOR I=©I©e t )©fS.I- 4 
i£tl-CA4to 4 A, IfiAfe* SDATA 
S:©tt#^?f^tS©i:RESTORE?fffi 
-ott'Setl)* 1 ), e©I tS^ - * 5 Js7 t 
i'ftii't"-s©(®r<* 5 -&o-ci.'-c fcj-t- 
* ? {±jset *'•* *) 4 to £©li*'©J£HI> 
b % AA#t Gfti t* s , H±©*Irti 

7 ^ t s e t f t *•* 0 ©fg^,©'»7H& 

tSi'i t„ 


Out of tape 


Tape read error 


File not found 

(40) 

Device I/O error 

(41) 

Device full 

(53) 

Device off line 

(50) 

Write protected 

(42) 


eftGli—aLTfc’fti’O i:4S t©i' 

4 t* 5 ',F'©li7© h 7 7'Vn:i St© 

fto f t**taifr? X (it 7 T — 
4X74- Aft AO, 7°!) 7S©X 4 7f © 
AftEft^ffifJJftS: t') cm ©* f ASIi 
#ft. Ate", A^ixci^TtSey 
I#S©ft*' ; , ^©^-&lii7-©^L 
Affi:lf#iiM®A <, t©lB©aPSf 7 
7 4 ^4—XORtf© 

5 X*'>^t'©f i±^* ? 'E'^f t„ 


£©li*“©-X-7 — t 7-t — i/ 
J-7 — S 7-fe — 


w±@iy±ifA^7-s 7-t-t"©ii*> 

I: fc-x.7 —S 7 -t —-7'lit' < o*’* 0 it 
* s , 584tS**ttt 7«< «ci' t-gx-i 
to e)t( t W S A r Syntax errorj* ? ft 

t'f liSM.'*‘t I.'7Rlw*** S*> t L ft 4 

•tf-Ao L*‘L, e ftlii7— ?g^fi-ftA* 

5x***S*£c*4ft4t®f, (®Si]C 
lilit 9 ±lf 4 -tAf l Ao AA'L, x—f 
-^lUSc^ffio-Ct'S^^.DEFFN©^ 1 
i: A* 5 x a** o f t if L A li 7 fx 
7 —i:A t 4 t©fii3tlt: < A"?t'. 

X7-4 7-t-'4'i J %ttS t, r i A 
**!j tj*Am^CA 0 4t* ? , fii 7 
Ci^t lix-7— ©,Ti S ©liti‘ L S t 7 A- 
-Ai#^f, e©* tit^'S i 7 1 : 17 - 
t ^ m At'11' 7 ® A L t'^'f b h S ©f 
to ±©BWUrl*Af 4 it 7 t ft* 1 S tte 
t), x7-i'i4lA«^i:tft©®H^ 
t *6 SltSA^ 11 ' 7 4 ©lit© t e ft 
*0 4-tAo^tii:®i:$IS L*'L*'A* ! ' 
At'e t 4* y 41* ? , eftifit-sA*’ 
i£f 4*'A OfgultotJBi'ito 

liX-7 — X 7-t — 7c* b J HoAi 7 

C, i7-^7t-y®litwi:fi 

TA f -tTT < At t'o 


-tt->7DH0 I DATAS:<7)A© i 7 


io ’<<3 BIJ &*«>> 

20 PRINT ” 0 100 

200 

300(mm)" 

30 PRINT ”-+-+- 

-+- 

-+-" 

40 FOR 1=1 TO 12 

50 READ A 

60 X=INT(A/10+.5) 

70 PRINT RIGHTS ( " ’'+STR$(I), 

2) + ” !"; 

:FOR J=0 TO X:PRINT ;:NEXT J:PRINT 

80 NEXT I 

90 PRINT "-+-+- 

-+- 

-+-" 

100 DATA 54,63,102,128,148,181 

,125,137 

, 193,181.93,56 

lOOfrT' r 181 j t r 93j <7)W<7> r , j ^ r 

. j t L tz 

■I £. izj: U r 0ut of data in 50j 
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i*'* v rxm bout' i ?> z % c,o)nj 

-rt» ^x-itn^L&i'tttii' \>vmv 

I’it. L *' L, A* 

x A-fta-G Hit-TcUS tt i x 5 o t 
I'H Itf, S ©^©t"'* 7 ifOlUft* 

7°n ^"7 A©4n:|t, I*f^±c7> 5 x t: t 
LtON ERRORX^ffiffl 
l X i' S b ©A s * b £ t« Stilt, -A7 — 
* { ?§£ L A't#£-Ui7-«yi$rt 5 )v-i- 
><:fPLK b ©ft* 5 , T°'<'y?"(Dmr-ttW 
StfOT', ON ERROR GOTOO i ITil 
2&U LTteSi t„ A A', -A7-Srffic*U 
%£S-fi:£ti4r?iJffltS 
-y9 Atn 7'7 a b * S (0X15 ± 
©#i£t Itu*. i-tbA. L*‘L, ib*i 
l TAT < A'$i' 0 

%£ttilt', £©> '7-b-->'c0PLAr'G< 
7^fcfi-xTt.'ttl£t I'COf'to 

5Ei: , P5jl tz^o^y 
a© h u-x b -ft. fn7" 

7A^'>L r o*ff L i * s G 1E#<:»J < 
atfl-k £ 5T'&i'*4MrK*ILTi’* i 
to *©PgH:lt^Sc©fjt©?-i7 t bfti' 
it. 

i ti** g r9 y em;i 11 -c it, mum 
ort«:#-ri*»9n-ci'S tg.i'it* 5 , 
£>-*> l * A* t I s Ut <” BREAK 

(STOP^atiT^ftSfitubT l iUt 
fto Ut, it*/.:#©#)•&© LISTS’ 

toav'^aLit. 

Z<DtZ#> U It, turbo BASICS if "TBREAK 
(BREAK OFF#) i:tJ3-?vK 
t'ftZdX, StUIMPJULIST+T'REM 
XcSittt £ to 
$T, »$**** l I'B^-ttiuttfet 
S Steffi l Tit, ta/5 A0®]|i 

(iJISOfrfl’WLTi' < S t»‘G#i*£ t. 
HU'ai'^Cfco-Clii'i LA* ? , Ji 
f£6t)i:t'A&ilj*£tS*’S’j?,T, *©H 
B*#*.T<.' < 6l(tt. A i£ It, fS¥ 
U\n i L X It, ^** f ittiT < S fc i> O E? 
Pg**J>*’li.'©T*tilt'MUSIC (PLAY) 
*0>tJltfc*5jtotl.'SA'^7 i Itfft 
tHt. A--V7^^*' ; te*-U'0^cGP 
CGi&K^DATAjSEUgKb* 5 * HKtl, 


Li'©& GltPRINT#^ 
LOCATE (CURSOR) *Gt 

otl’ S©T"to 

#£ GtiS* GKPStfxS-lsg^T b'*'t' 
t b* 0 it. s 
©*!£•, ft & m < i S b It LIST i !) x b 

Srt^TJt&LTi.' < S it to l*-1, 

s ft b A^&ftitT'M t b OC 

to i:f, t^tffljTifi -7 tt Sifij 

ii'5 s t$r 

#LSt>li-rt„ t LTi'< 

oa‘#JSrf?tfTA£ t, 

1) jgtfrfc^Utt&t* 

s tilt, 

B«rfr5IRUtW»irt. 

2) 37/'K!?i|i:fxy^t5 
SEARCHlfrfrfcffi 5 t fS^tt* 5 , * S 

1(f$03?v K©-&£ tiSfitfltS-f-ix 
tt S t I' 7 JiStt. GOTOX-fTF# 
FOR~NEXT#/<C if *> f 5 X bigs b J Pt<, 
/n^ A0j^tii: b AU&SSr^x. S8B 
#-c* s A" it uawnw-rt. 

3) ^SSiJU^x-y^tS 

2) t|S)U < tLTl.'S 

fttfiti’fx^t’tsbo-f, $&©^b 
i:t sn#ltt < *s s i ^©T'stibW 
Sit' Lit, 

4) DATA#$-^x7#t 2> 

it—7* x-fc—i^0 r Out of dataj ©^HT 
if-s i L t:tf, DATAI5C0 5 x It##USE 
L J Pt<T, L**b^?-*^4L/ti.'b 


iHH BASIC“^t«i^”AP^ 

0*f£i'0-rt. +-V X t^* f gLtiTi'S 
t*>, ^T>h* i 'itAiIittt.'ofjb00 
li t At"* f r"— ^0P B 1iti'*‘G < S b0f 
t„ LA* ? oT, DATAX©fi7ti:i 
0 '«*■*»*t S ^I4lt*>4- i) $) i) i to 
ii'ofci 5 tj; #{£*** 0 tt* s , i? 
LT b^'t"* f 5l£-C'|i 4i’J*^ltt-*T0 

li^fx 7tti: t clot L ii’it 

7°!) >^^I#oTi'SAlt LIST^ilitjL 
•C, ') X h0*g-oTl'S {,0tfx-7ft 
Sff^±Ti:M^-CJ:t$^t S ti't0bW 
jli'i'I.olt^t < tsjffitt. 

JT±01 ? U, p?-><yif 11' 7 ©ItAS! 
& L0(f®tt. At) 5 x0SH,ii"5)£ 
utA'It-r b s tiAtt© c t * ? * b, i t*i 
i **tz < $ a* o k to 

@f'j=07°B ^"7 A0r"7t'.>i7" fc & * t, $ 

G UJ8IJ0S# (7^n"y X'A±0^'7": # 
iji^o-a-s) bint7S0-rc0t#-c' 
Itltttii-ttA**, CCt'0lliBflbi'<G*‘ 

Itsuttoc i*t*s tsi'lt. £ A. 

ti®$tis#it, ^titi'7^ J pc:0At) 
Il07^ f -7 7" 11.' X' % Z> A* 

it^H^-i: b **■ b , Pti.'/D/7A^f 
I'TItU't,gX't t WOtD^xE 
- K0±-r^0*S^UIt) o 
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0 gx.i>tii><7)lt&< &X'b r s<7izMTZtiffin 
'Sfr-Vj tzVT'&Z o ^<7>(i2!>'<7)ffR 

-r ^ ^ LTg/tT 

2) <15! 

AT«U < ^^jri'WW, 

(iS *'**!ST«»5l cfc 0 i:fOo 

gziftmftizmztzftM'mvTt-'vttzo 

i-r. ¥<#^ 

ifc, ¥5c *=*/?< 4* i 't IS 

Kx>Tl£ 1 Z£ tfh 2><7)T)i* L«t •)„ 

2. i7-OHi55fe#m5 


it 0 <C A* • »fTF 5 * Sr^JlT# 

3 . i7-^ms 

‘y-b —^<7)tiiS t<7)(j: t x^-rt 

^^rfS^ctOo T#Afcr (^4'«b{f) *yM-V<n 
S5*. X7-lZ>i'ofeDV>I* • 
i'o zn(i^c7)3o<7).«^T'a^c^T'*% 0 

1) g^g#T'X7-<7)rt^^5i|g-r?)^ ‘J. 

*B*T*W*N=A* 5 

2) yP^7A(7)/\'m^l': 

t). mws'rr/i'txtf&iihtiz*. riH4*<**o 

JU-tjt^fcr KPnm 

£ t>C+#4'1t$8£'j2'^*: LTi'-S, 

««a<*fc*2Kci'£ #ti, to/c < 

le) U J: “5 C LT%aTI' 5 (<tTi:I^4)o il?<7) 
i ^ t z b i: t'^> fr Zo frit li ti 0 zz T 
115!^ i: <7) ^ is] « *'*^r *7 n x i' ?> (7) x* i> ^ o 
fcoi “x 

— ^ <7)?T^>WiS^'(-ct-5> r lllegal function callj, r Out 
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Ufttz < $ AcO7 l 'PT ; 0AA<3t!fcC%R$ftTl.'£'f„ 

*iJfflL4'0'4A,T fco4i'4l-'T-fte. ISAcOft-f A'co^sETjt?) fcco*<l'-7 liV*3co 
TT^'t, 2A.'-?;b(tT', Oh ! r 7°P7'0Af$fIcOT'Iij T"t„ 


#ttt i' 7 coii, * 5 ^'°y a >T;£S y 

7 fi 4ti*'C0''°y 3 vTAS i. 7 Cf-iH L 

t4:t T* s o 

rfilfccOO*— a 4 £ li, -7^>|gu-^vu-c" 
com^It-otc'S*!^* 3 ', znn, g- 
$HK0''-Ri:i3|l< b'-h'b'i-Z < SCOT", 
4<.'^A«364f1Mgfc4a„ 1*>L, BAS 
ICco^fit t 4 S t, -IS BASIC t 1 ' 5 ft 
%.<Dnm<D±-c<DW!£<D-c, £'pim%r. 
4 SOT'* S„ £ftTli, ifftni:, # 
SmO^tSt Ltt'A,i:i5rL 
4 0 i i'**?? sft*>f>if^S s t i:tS„ 

HI izmftmomm 

1. 4 (slit t*ft BASIC (D&mt%z.£ 
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:WiSI-r*S s 4"*% * i y BASIC 
frfcJ&fci'AT'fc, #fit* s nlt&4 C t 4'-7 

t*s„ * tTjt-is**, 

il/o/7A t, £ 7 T4l'7°n TO A 

* 3 '*Sc0T*S o 

2. g-9-cO{$-3Tl'£/\’y =J >Tgr*''T*# 
Si'^LoA' ‘JJEgLctOo 
BASICcotttg^, -^-yyco^'-K'i: io 

T, H LT{> 47°a 7"0 a 

<> * S o 4t 1 If, MZ-700 T'TO 7 4 7 
7£®if7 ttScOli, *Ai ! *fTn- 
F7 4 !l 7-X't«fa5 fcTSJ:5 4t>cO 
T* S 0 ll&j*'e>*§ e>*TfBf-i: L4<.' 

li 7 * 3 ' i I'o^oti, 7°n TO AC07^3" 
y X'A 4'tt T, UHlI*' ^flf L < 7°n 

L*i4<.'* ? , 

3. BSA'*ofc>b, fifefitltcO BASIC<Ott<& 
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CO pp't 5't 7 X fi A, 

sniiSilc-T't'L fc£S4i: l-ni&i'. 

BASIC<0±bl£** { tRo* tUi+ft-Cft S „ 
4 4\ Sl^Tfe < t 14 * ■ £ S co 

T* So 

#titt <■'7 C0I4, t (:*• < 7ti:4 S7°n 
TO At: ioT, ItlS^, TW&i 
-7 T L i 7 COT * S „ L 4* s o T ia±c03o 
C03H+4 £ *' C> r t T I>$M: lifSWZj t 
■7 AT & 7°o To Ai:i7t li$ti* ? T & 
T L i 7 COT* So Tti i -fffl t IT, <k 
cOHuBASICTt : *'ft47'’n TO A £ S-B 
ASICi:#ttLT*«t 7» 

10 LOCATE 0,0 
20 PRINT "ABC” 
ziiH, LOCATE 4 CURSOR c 
ii'OT*5. W^CtTU. 3*, 
l«A ! 7i'At c*Tfti:jBi 7o 
ft»BTlii:i±cO£f$3r«4 L T 
ii'. ngiBiScott, ii«T*s„ 

HI4t 4 7 I 3 T'f— 4? & £ £fgib&i,>[5g 
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oA'tiT'tt4<, XT-fi 7 y 
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i:tS„ 
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4 -o T L i o 4„ 
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So U.'liIi:IS.0fl LT*i 7 o 

7T7°I -«tu, fl6#A) < i-74< 

*?>i'tt(ili'BLfecOo 

4 t i IT, PRINT 4t'A ; :ni:|4So 
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s? i-rtii'**, e© 

*4 /®xt- p 7 > 

XT&S, :<xt>@i®ni:A4©fJb* 

UtT-atAJ: 7» 

H^2-^HU, tSA'I^Tl'Tfc, 

(£*'©Xx-P7> 

X-hb fe©„ 

J:5^<@«iiL<4ont 0 
(fit, 5tl£tii^'4CURSOR~LOCAT 
E, £4, PRINT/P^LPRINT 4 £* f e 
©£7 /cAJ, 7°©$fg(> £ 4 

#XT* 4„ Wt S i:, # BASIC ©MMS 
4A*>* I *ftl£. 

SCt tfX i S o 3-0 *■ G 3 HI t: X> 4 -? T 
PlfKSfxS r BASIC DATA LISTj 4£>' 
ifi'Cigffl l f ?o 
a± 2 o© * A ro) X f - M > P 
$c©&offi'7X:t.'S7°nx'7.M£, f>£9 
BASIC© e t **b*• & ft i' £ ? 4 KX b # 
P6T Set tfvJnZX?) So 7^ 3 " V X'a 4 
««?TS&Wi>S:i'U 

(44 L, $ft«0»ll®4 

eoW«li#oti'Sin. L*‘L, 3lP§H: 

eA4£M4xT-P7> P4itxr*a>n 
■Ci'S7n/7Al :lf, *o4t:fo0 !:*• 
*>Setlf4<.'o Vifilf, <ke> ? 4 7° 3 t 1 
4 > t 4-7TI' So 

?< 7” 3-S>Xx—P 7 > p, 

B9iW<4<, 7 ”p 7*7 5 >^CX|llCili 
# 4Stt4imi£4G4X'fc©o 
*#=W4Wif. f) t -r y x p rutBfl 
ts* ! , ee£xT<st, Uf^BASiC© 
*nt&4 L t: immx i 4 < 4 -? T < S 0 # 
c, fc-frftO^&i'BASICT'tt, e©7 7 
7°©#ti*' ; £ < 4 9 So eoisif 

#t r.lS-oX, &'©7 7 7°CiIAXT&f 7 » 
7 T 7° 4-BASIC _LT'lf, ^Ha^nTsI 

4 fo ©o 

BAsicTf mm°A'°\m. ti^n, -? 

^ >g§w'^xrifnm4 s ©* ? * s„ a- t 

X l£MZ~80B/2000/22004 If, 

POKE $ 952, 0 : GETK $ : $ 952, 166 

ttnif, n 7*? a a4t-a*(HuBA 

SICxTlf, K$ =INKEY$ ( 0 )) 

4S L, 

USR( $ 0F14) 

X, BEEP er 4 VtX Set t>' : X i S 0 
—tefl'JC If e © f 7 4 {) ©T'li 4 <, ttJ 


(e^' — p*a*-ttf- h -T' & 4 1 .' 4 £©ji 

fit:f s I>©4£i> 0 L*‘lfAI£, e©7 

A 7°Cjt-tT S ‘Mkr 7 - -7 ^ 4 2 o |£*> 9 
^oTi'So £ft4^l!l£, mfllffiSSt 
set (:T So 

Hi ©t 7--77I£, t'7tf9M£4f§ 

* s e t r - * so efxlf, *£9fji0)I4g 
L 4i'4A U, fA(> £ 4£ < i£f§9 4 < 
4i' 0 H 2 ©r 7 — -7 If, toxf-l 
7> P4t'4ffi-7xn.'Sg|5-0-4, If o $ 9 
W 9J£"T S e tX/©S 0 4 t Xl£r'-/>4 
if 4, *'-a*- 7*-©R{|; S.fifD^©# 
*4i£-fa5#4 t\ 7°o^y A£fc<D$>X 
9**#Sr4*.4i'te*U: f « 
-7 htS*>, fi,i'«7T9)9 
^■TS^i-C'*S„ 

■£>^lf4<.'©4o e©r7--77li*‘49 
W'xJj-T ft S **, £ L t i" Sl/n/7A 
iTl i 5 11' ? k&ti'#) S o 4 

£ XTffio-riJ Li'o 

5t, lit At’ © = -7 > K, Xr-P7 
> P, ^ x T Asa4 £ I*. PJLt© 

4o@^ 7°i:9)-IS'C' is© 4* s , e n f, 
co^r.ti n4i' {>© fc 4i'b«tt'li4i'o 
T4bt>, *Si'l£# 

4, ti'5S^O 

J: 7 4 9 A 7°Xh S o ft*ft4 t> © 4, 4 
o^if-cfee ?„ 

Oto«LOGti.'7liy&-C'*S„ enii 
S-BASICtli, JRBJWRt 4 h 4> logio k 
tRL-0.'S©4* ? , HuBASIC f'li, Sf* 
MScln(loge) 4^LTi.'S©-r'*So e <x 

4 t' If, SPf7 4 7l t ISlitX k l U 4 

5 -r* A 7 o 

Hu©LOG(X)~S©LN(X) 

S©L0G (X)—>Hu©L0G(X)/L0G (10) 
eixTii'c ttfto-C4*U ? tio'-ol 
^ G ft S KE^©# fc, ("Itttf e®£5 
uX&tttlfi 25 Lo 
?X'©IS»lfRND(X)t'*S. HuBASIC 
©^'g- X If 5 - 4 © XT' 4 < X {) f <, SL& 
^?||©H3:$ If RANDOMIZE ^-Ttf 5. 
-tftwpx, xif tA4ft-a f Uo tes 
* s S-BASIC-rif, X * ? 0 EJlT©»r'SL&* 
fi|©P;j?4Ht* ? lTX>n S©-T, HuA‘ GS^© 
f£fig©fSt:X* s 0 i:4oTi'S t %,h1b, 
e 9 ^|5]C^4'4A7* : i«5Xt'i:fTG 
i&tf t. ^ ©B#^Cf t 5 ’TXl-Kb.X'.' S 
©r* So 


X>0:S©RND (X)<- > Hu©RND (X) 
X^0:S©RND (X)«Hu-rii,RANDO 
MIZE(n)^4ffi5o 
li:, HuBASIC©RANDOMIZE4S-BA 
SIC i:t S©If, ^xrAlSSTIS 
o T EJ.T © f ?i:tsti i'^S5. 

10 T = VAL(RIGHT! (TI$,2)) 

20 FOR 1 = 0 TO T 
30 R = RND(1) : NEXT 
SLSlf 7-A4 enf****43f*tr 
*S*>G, LTIfi'H'41'. t, 

entrssittfe J: 5L„ 

St^lf i /—4 7u—©£H7 j 
-C'*So eftif, gBi]* 5 ^^JIox:i'S* s ', 
7r4 *k*--7's LX, PRINT ^X 
♦ iliA-XT', yrA^kfiv-k-tzim. 
If In] C f 7 G^,X So #til©^ A 7°ti' GS 
Xlf, ^Clt^A'tp©^^ 7°3, 

ti't) s HSxrii 4 1 ' *• t S 7 Uh i *\ % If 
e ftlffi4©xr'£So 
770^©ffifjlf, PRINT#n*St.' 
If PRINT/T 4 t" r lf b n S A' ; , ^*!(©r" 
-kkAj>^“," XUWr,X!H,tjU;m& 
©«iia* s , HuBASIC t S-BASICXT'lfM4 
•oXN.'S„ HuBASIC If, X^9-><:m 
f)1-S©tl5]Cf7 i:7 7 ^ -'HXftiflT S 

©xr\ *>-7 xtei3Jox: bm&vr-k t 
L Tlf-tS64i'©4'* f , S-BASIC©^ 
If i GA tISS c©t"— ^ t Lx:fS 7 o of 
9,S-BASIC © r PRINT#n(PRINT/T) 

A $ , B $,.j If, HuBASIC UTS t/P 

RINT#n A $ :PRINT#n B$:PRINT 

#n.j t 4 s e tt:i£itL4imi£4G 

4i'.4te,a7 £xT'()4t.'e IW, A$, 
B$ (4 t Xlf A, B, 104 t') 

XT (> *“ £ X> 4 1 'o 4 -7 4A f , S\.5f# 

If 4 < X: If 4 G4(.'©lf, 

it XT'* S„ {Xv 7 A -7 7 Ar 4r 7 ^ 2 If S 7 
£xr'(>4i.'o |H]CA7 7 7^xr'{,, 7X4r 
— a — K* f it7 t©* ? *S©XT'i'i^t^Lo 
CHR$ (~) t ASC (~) © M&* 5 '2b -o 4 
G, * e xrffi X> ix S r"- If«> £' 
W* s *So a >■ p a— 7ni— p°4 f©f])i 
t, ft««RS]xr'PU^i:itox:i.'So 4tx 
If, X1 XT'®® 4 7 9 7T S t MZ-2000XT' 
®1t©e t 4t S©xr'lfi4©f 7 4iti'* s 

f) S o 

XI PRINT CHR$ (12) 

2000 PRINT CHR $ ( 6 ) 
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&ltlt©7 XA~ a — K t h n—;i^ 
3 -KfrSi, 

:nr, 3 ?l^ct' 7 so*>, 

MfttTHf {> h*>o-C {> C^Mz-abb*) . 
2 § i:*MtfEHli, ABU* t lifi. A 4 <■' < 
t> i'®f-BB t IKfBSJ* 5 *’*'4©f* 4o 

HI yyju-*ym 

ZL Sf'^lOJitfS-f7>—Hu 
BASIC*’ P>S-BASIC ©f£®4ft ? fgU, 

^r-M> 

I^/d/ 7 5 >7"l4(>©f*So 
It, S-BASIC*‘£>HuBASIC^©#titcf$ 
Ato-txV—A 7 tf-tf 5o & *)tS-ofz<D 
4'* ? , S-BASIC©±4frfrtt, t^fHu 
BASICf |0] C f> ©A>, ftft 11:^4 t ©* 5 
loi’ot!)t5.oi <),5tlit'©#t#© 
7 4 7°f = X If, ?>fm2 f, BASIC 
©it®#* 5 * ft if, iff i) #tfif s s ©f 
2b S 0 Kf HuBASIC*’ liS-BASIC^ 
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AtjSft4A7777'S?iEt {>©f*4o 
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HEX$(X) 

1000 

'LIST 4 




1010 

’HE*=HEX$(X) 




1020 

HE$="":H=X 




1030 

IF H<0 THEN H=H+65536! 




1040 

FOR 1=3 TO 0 STEP -1 




1050 

A=16~I 




1060 

H0=INT(H/A):H=H-H0*A 




1070 

IF (H0<=0)* <HE$="") THEN GOTO 1100 




1080 

IF H0<10 THEN HE$=HE$+CHR$(48+H0)sGOTO 1100 

* . . 
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1090 

HE»=HE$+CHR$(55+H0) 

* . . 
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1100 

NEXT I 
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RETURN 





£BiJo 7 . 1064, i095ft4tgi&s-4ftif i 
l'o 2000, 22000*g£-li, 1030~1060ft4 
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1050 Xl=X+R*COS(I>:Y1=Y+R*SIN<I> 

1060 LINE X0,Y0,X1,Y1 

1070 X0=X1:Y0=Y1 

1080 NEXT I 
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1000 ’LIST 6 

1010 ’LINE(X0,Y0)—(X1,Y1),A$,BF 
1020 IF LEN(A*)>1 THEN RETURN 
1030 B*="“ 

1040 FOR 1=1 TO ABS(X0—X1)+1 
1050 B*=B*+A* 

1060 NEXT I 

1064 ’B*=STRING*(ABS(X0-X1)+1,A*) 
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1070 X=X0:IF X1<X0 THEN X=X1 

1080 FOR Y=Y0 TO Yl STEP SGN(Y1-Y0) 

1090 CURSOR X,Y 

1095 ’LOCATE X,Y 

1100 PRINT B*; 

1110 NEXT Y 
1120 RETURN 
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BASIC DATA LIST 


lii ')\%nh „-fa* £4 < pc, 

*tltmtfil%&tzh<nt£A,T-l i Ttoo t r^T-^OTBASICT-r^, 

t'< •5^4>b^^^SfLt'T'r-T f TA < aiT < 

i-t+Ao <5j*'¥iS4SI«(J4irt i°l 

tz <) TZCOT-to ti't IoTA©yn^7A5-}To 
XiK'fc, t Cli4 b4'L> L „ 

1 1'-) toltx*, ccliu-iro, fd2l£C}ltt$n4yp 


*1 BASIC DATA LISTSfflC*^oTC4;±Si,'S 


fr#-§- 

5^;K7MiA.?>BASIC, OJHNss, Hu, M25, S25, S 
((1X3)) XTJ, KSilJi: t feT# *>„ fc 

4'L, Hu, S(@@) TIJicyajXyA + X-CD^ttffl 
°Tbc (list*?run fi»#XTi77xJHt5gt<7>iEJ3ii4 
7A'4LvOTX-ffifflT3T) 0 

150 

H^T#-§- [- Ci^-T^T#-^)] 

Mm-Zo HuTli r -j <7*WJ Cl r , j fr&iztb 

T # # -So 7^U* c l$X.5BASICTli f CZT'fc/gmiJfcL 
T7'<Jl/A < f$a.£o 


Sfc, Xftb£ 

t)(7) 0 


£am&« (am7« : *o) *s*;o a^arc-taii 


h £l 'o ? ”*>“ 7 7 Y 7U 

TfcIWo 

B*f^'J^ 

7;i/7 7^7 h(7)/J^, [ ], ! Sttlii 
L4't' (toe7)*-tf- Ktz4't' 
I&§-fclR]*i)o f:/:U 7Jl/77^7h(7)^, fS^, 
2>>v4 

[ J 

(a(bCc)}) 4 

b£g8i£B&, A, AB, ABC*r^rC#$o tztz LBC<7) 
<£o4^(iT#4i' 0 


|5]tiC7)M 0 7>-^/)^JE< z ir^to 

> O 

OA'aot £% bM 3 (BULXTi i'n*') t5-3) 

T, f tz, [ 121 ] t &*U*. O#'AjMWSOT ftl*'C44. 

(Xs, Ys) —( Xe, Ye) 

(SlhOT x&*.:£_fc.OT yffljl) - teTWxii, XfF 

cnyimm) 

(x, y) 

Nss, MSX, M25X(iSTEP(x, y) £ LX tS'-\ x, y 
UtfjCxi, y*«fcl§»(xs, yeWJHtOo 

S25<7)x, y 

|S|«CSTEP(x, y)iLXt>£l\ ( )»<nx;i*„ 


(f(feH.«S6H, 7-f >7$"f;p]J)-S25 

Xj9—S$l t LfcWOT* 

creK.*to^*>*)])-s 
( [feH, WSta^fr-fr]])"-SHARP<7>®® 
ft® L 41'(isex# 4L') •■ SHARPS®®©©© 

([ ]<7>>Rt«aLX </;<?(.') 

®. ® 

WliTf-M^I- • 37>KirlSmi^^CJHt 
XL'5*!, 8W!: LX®liAr- M > h ®12IWST 
£>-5„ _ 


« 3 MZ-80B/2000/2200"t'iR4 , C4'.'pi? t? 


^4>T(ifiJSL/zMZ-80B/2000/2200fflBASIC MZ-2Z00I, MZ-2Z002, MZ-2Z02I X 

T-T-1- ?nXL'5GPIBT >? 7x 

Y — h np^o 

1 CL 

REN 

LCL 

LLO DC L 

TRG 

PCT 

WRT 

RED WRT/ 

RED/ 

CMDW 

CMDR 

ON SRQ SPOL 

PPC 

EO 1 R 

PPOL 

PPU 

GP1BM EO1W 




fitC^-v O^LT^TIil'^'A'T-L i ii'„ I'ofcBfcClJ, 

Tl'ST(afS) 0 Hi ItCffl^OTBASICfcfrA'^X L * i <DT-Tl)'t>, 
?i:;w;i4®T't. c n ^8* basiccodata 

LIST*. ^-fl4^3|alCt>4‘Jil«Lrr<, ~<T) ') * Y ^I'frl:* 
ffiTS4ttA4fc<7)3§*L4'L'X--fo ^ttXiJ K->tL'oT#i 
Li (JBL^ ;§) 


St 2 &BASIC(7)?'77-f 



1 ^ 

ft 




> "7 

aE 




(7)7 

L 




K -r 

tz 



*-K 

; . y .y 

h ^ 

/\° 

7 


Ml 


(7) (7) 

7 





1 




~f- 7 

? 




L 





0 

0 

0 


PSET 

• '>T-73*7)MI=0 

0 

1 

1 

1 

0 

1 

1 

0 

1 


PRESET 

0 

0 

1 

1 

0 

1 

0 

1 

1 i°i 1 

0 / 0 / 1 

1 S 0 i 1 

0 0 1 

Jk&)\ 0(Hu)LT3o 

AND 

• S25(7>M!=3 

0 

0 

0 


0 

1 

1 

1 

0 

1 

0 

0 

1 

!7 h?nxi'ntf-tr*y ho 

OR 

0 

0 

0 

1 

0 

1 

Zibbtrtftev h^tiTi'tUf 


1 

1 

0 

1 

1 

iZ'y ho 


0 

0 

0 


XOR 

• S25 <7)mZ=2 

0 

1 

1 

1 

0 

1 

1 

1 

0 

jmz-ttZo 

NOT 

0 

0 

i 1 

1 

0 

1 

0 

1 

1 

0 

1 

0 

mmizffi&xiz'v ho 
(Fffl) 


0 

0 0 

0 



0 

1 0 

0 0 

0 


SCR 

1 

0 

1 0 

0 1 

0 

0 

s<?—>o Oft i (npJicnfos <9 
—>&■&"; h 0 


1 

1 

0 1 

1 1 

1 

1 

(M25ffl) 


0 

0 0 

0 



0 

1 0 

0 


FPSET 

1 

0 

1 0 

0 1 

! i 

0 

s<?—>o !<? — >/)* 1 <7)#f(7) 
^fe^-tr-y ho 


1 

1 

0 1 

1 1 

0 

1 

(M25ffl) 


«4 MZ-700/l500T|R4 , C4'-'oi>^' 



-700(7)Hu BASIC, S-BASICSC/MZ-1500(7)S-BASICT* *fi— h 

Tl'SXP >y >7^(C )F*9(JMZ-l500X<7)^^) o 

MODE TN 

MODE TL 

MODE TS 

(PMODE GR) 

(PMODE TL) 

(PMODE TS) 

MODE GR 

PCOLOR 

TEST 

(PMODE GR) 


(PTEST) 

SKIP 

PAGE 

LINE 

( P S K 1 P) 


( PL 1 N E) 

R L 1 N E 

MOVE 

RMO V E 


(PMOVE) 

( PMO V) 

PHOME 

H S E T 

G P R 1 NT 

AXIS 

CIRCLE 
(PC 1 RCLE) 

PLOT ON 

PLOT OFF 



1'X ft&ffe(7)BASICL 
T# S*g£-fc*S)o 

av?7‘j 

> * £($ X. (SPRINT/P • LPRINT V ft ffi 


#S# BASIC DATA LIST 81 




























RUN CONT NEW NEW ON CMD UNLINK TRON TROFF MON LIST LUST AUTO 
EDIT 


m 

ffl S 

N-BASIC (PC-8001 ISA') 

®-t < 7~cm-(r>H'^'&. 

NssBASIC (PC-8801 &£') 

(SR)-88SR<7)-»t^> KM&WfSSRi&l* 

MSX-BASIC VI.0 (£4±MSX) 

®-xT 7?K&CC7)*#* 


7P?'xA£5fc§S£'b 

nuo 

RUN 

RUN 

RUN 


A b^To 

RUN IrS^I 

RUN 1t#-§- 

RUN Tt#-§- 


KLT^^'bUfiro 

RUN ‘7 7<)^" ® 

RUN “7 7-0^" ® 

RUN “7 7^0^” 


4»iL/:yn^7A$- 

TIM. 

CONT 

CONT 

CONT 


^c7)ii®T'7'P^5 

A**»rf5„ 





+iL/;TP ^7A(7) 
7'H 
fio 





yo^5A^^gt}*;@ 0 

NEW 

NEW 

NEW 


BASIC(7)^E- K£^»J 


NEW ON XT x*/7T 'y^<7)tt£g 

CMD UNLINK (sr) 



BASIC 7* P A<7)*£ 




VSL 

□ 

V 

> 

h kica* 

h u-7^E- K(zA$ 
(ir#-§T;i7°»J >7 H 

m*) 0 

TRON 

TRON 

TRON 

K 

h u-zt- vfrbtk 
it* 0 

TROFF 

TROFF 

TROFF 


^-^CA^o 

MON 

MON 



IPL£i£!fi-T£o 


(NEW ON *— K) 



>J7 h 

list mm) 

LIST (©ffl) 

list mm) 


>?IZ 

llist mm) 

llist mm) 

lust mm) 


}a3=!7 X < JU (x7*-Y 

7) CM* |* ^{iJ^o 





*0>ffc£lty 7 h £i5® 





’<7)^/flt 'JXh£7V 
>?i zmtio 





’<7>&fc:ttM7 h £7 z 





M 7 h ft*l$<7)f£@<7) 
x7*JUh£*t£-tS„ 





*t##£S»££T*o 

AUTO CMt&ffH.MflO 

AUTO (Mte?rH.*f30 

AUTO 


£T5„ 





*t:£fr£xx-f "j h T 


EDIT ?f#-t ® 



xxt y ht- KCA 
£„ 


EDIT Tr#^- ® 


82 
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86^-vC*tc< 

















'M [y 


Z. (7)DATA 2<-5?TKW$nTl'5 3 

> K, ^x-h^>hT'T 0 .fct&L/cBASICte, N-BASIC, N 88 BASIC, MSX-BASIC V1.0, F-BASIC V3.0, 
HuBASIC(MZ-700/XI),BASIC-M25/S25, S-BASIC, SHARP BASICTfo 


F-BASIC V3.0 (FM-715A') 

D -XT 

HuBASIC (MZ-700) 

HuBASIC( XI • X1 turbo) 

®CZ-8CB01 Vl.O (3)CZ-8CB01 V2.0, CZ-8FB0! V2.0 

(2)CZ-8FB0l Vl.O 0CZ-8FBO2 VI .0U:<7><*?TSE 

RUN 

RUN 

RUN 

RUN <r#-^ 

RUN }T#-t 

RUN n#-t 

RUN “7 7^^" 

RUN “77<J^” 

RUN “7 7<J^ b 

CONT 

CONT 

CONT 

NEW 

NEW 

NEW 



NEW ON ^E— K (D® 


NEW ON 7KU7 

NEW ON7KI/7 

TRON 

TRON 

TRON 

TROFF 

TROFF 

TROFF 

MON 

MON 

MON 


BOOT 

BOOT 

list mm) 

LIST (1611) 

LIST (ISSI) 

LLIST (15SI) 

llist mm) 

LLIST (16®) 

LIST“7 7-OU£”(. 15 SI) 

LIST “77<^"(, 15®) 

list “7 7-f ;u£”(,§50) 



LIST * (15®) ® 



LLIST* (15®) ® 



LIST* “77^l/^"(, 150) ® 



LIST @ (150) @ 

AUTO 

AUTO (^&^)(,±i^) 

AUTO (MiS^ (.***) 



AUTO * (^Tr)(.^) ® 

edit 

EDIT CfT#-t) 

EDIT (Tr#-t) 



EDIT (fr#-§-) ® 


87^—vI-$jc < 


ttli BASIC DATA LIST 


















I ; 


RUN CLRrRUN CONT STOP STEP NEW NEW ON TRON TRLON TRON/P TROFF MON BYE BOOT 
LIST LLIST LIST/P AUTO EDIT 



BASIC-M25 (MZ-2500) 


BASIC-S25(MZ-2500) 


S-BASIC(MZ-700/l500) 

(DMZ-700 x-TTSWK) 

(DMZ-700 OD-DiskKS 

(3) MZ-1500 OD-DiskKS Ll(7)<fr#£ 


RUN 

RUN 

RUN 

RUN 

CLR:RUN 

CLR:RUN rr#^- 

RUN 

RUN “7 7^^" 

RUN 

CONT 

CONT 

CONT 

STOP 

STOP It#^- 

• 

STEP CffS) 

STEP Cfr») 


NEW 

NEW 

NEW 

NEW ON -t — K 

NEW ON J E— K 

NEW ON -t— K © 

tron mm) 

TRON (Igffl) 

TRON (D 

LTRON mm) 

LTRON CiaHll 

TRON/P (D 

TROFF 

TROFF 

TROFF (D 

MON 

MON 

BYE 

BOOT 

BOOT 

BOOT 

list mm) 

LIST CIS®] 

LIST CiBSD 

lust mm) 

LIST/P (ttBI) 

LIST/P C®5|g] 

LIST 

list “7 7<;^ n c, mm) 


list* mm) 

list* mm) 


LLIST * CIBffl) 

LLIST* (KH) 


list* u 7t"()\,&” tmm) 

LIST* 


AUTO c ®1>im)lWfr) 

AUTO 

AUTO 

AUTO* 

AUTO* 


edit (fr*.*) 

EDIT Ot##) 


EDIT (fr##) 

EDIT Cfr#-§0 
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88-<-v(=^< 














SHARP BASIC 
(MZ-80K/C/1200/80B/2000/2200) 

CD SP-5030 g) MZ-1 ZOO 1 (5) MZ-2Z001 

CD SB-5520 4; MZ-1Z002 '6 MZ-2Z021 

(2) SB-6520 (Z<7)<^#:£ 

fit # 

A # 

RUN 


7°p A £&§!*'*> 

m To 

CLR:RUN 

'> * -7^(7) RUN }T#-§-(iGOTO fr#-*! 1 1^ U J: 0 ? >J T L 4' l'<7) L 

5 d (iCLRfcttlt S S o 

jftiisuxyp^ 

A^ii^^'b^Tro 

RUN “7 7<J^" (D(D® 

llL t fc9 4#££TSt><7)(Z I LOAD “7 tTJU£\R £ CHAIN “7 7 T *r£>S 0 

}b$ 7 P 7'^A^rP — 

K LX^Ii^bH^To 

CONT 

7n/7A4 ] T'^n?>:i:IJ4'i'o 

«Lf:7“P77A^ 

nr^o 



i$(T)filT'7P ^7 

A*+®rrs„ 



4 , ®rLfc7 r P 70 A(7) 
^'b}lt7j'y7'l 
rfo 

NEW 


7‘P77A^m 


N«8^0NEW ON (iNss BASICS N-BASIC, ®®^E-^<7)ffeXTt BASIC 
hfS(CMD UNLINK(iHt r 7> Kffl<7)CMD:fc£* *y S)„ 

BASICCDT: — K^r-bJJU 
»*So 


v> >mm'M (&ttSg£)o f:/:L7p77A+T^n^:i:(i4'i\, 

BASIC 7°P ^TA^M 
IftMifeT’ hT^m 


7°P + dJXCfcl'o 

h L-7X-KCAS 

®](Z^0) O 


7“P77A4>T'toTt41'<7>X, fctJXZ4L'o 

h U — 7 X — K tz A S 
(nS§(i7'J >7lz 
fcttZj) 0 


7p 77At^TioX LW4'i'OT, HiXC^'t'o 

F L-7X- K£'b& 
ttSo 

{BYE ® 1 

[mon0—(Dj 


tz^izA^ 

BOOT ©~(i) 


iPL^ieiarSo 

LIST [is®] 

HuBASIC3£(i ') 7 V fcfc!7?^7°P Afr'iLi B4l' (7< ^ P 77 h X*(iik£ S) <7)T, 7°P 

?0A*iztjfcjX< 

U 7 h ^U®(z^^ 0 

LIST /P CIS®) 

HuBASICIKi >J 7 h ttlTj^T^P A*<iLi b4‘U (vT ? p y 7 (. X'liitf S ) <7)X, :/p 

^A^nttix < sz: t bh%> 0 

70 >7lZ ij 7 h ^ 
t)o 


eh**** a* save “7rT7Mi^",A^ff)B^4^o 

4b$7t’<; u (-r/\'T 

7) (Z IJ 7 h BtJzTJo 




tC^ 0 



fUj|,7-7P(7)J: *5 d^X-S^o 7 ‘yb-vytl*ffiCPRINTH<7)ftt)‘J HfiSoc £ tf&S*'f> 
Ltl4t'*< t zn* < 4'-'BASICX(i^(7)PRINT7C^CMTo 

'(omtztf')x h *70 
>7 (z{±}7j 0 




, <7)^/z(7'j7 h ^77 
T^(7^/\'T7)(Zfcii77o ; 


itzp v> £[2]Stis!><7)t><7)4<7)X\ 7 °p 77A^i:iJtnx;4'i'o 

U7 Ftii*^(7)ia®(A) 
f7 * 7U h £}b7e!T S 0 

AUTO CSM&fTH.**#) (D~© 

7p77A«t>x^ti§: 



7p77A+X^ti^i 

’ ft # <7)n#-§- £ £HU)^ 
£-ts 0 


7p ^7 A * S T 4i'o 

tt^frfcx-rT <y h T 

So 


7p77A^T^n?>: fclitft'o 

if -f *y h X— KIzA 

So 


89^-vi:E< 


ttli BASIC DATA LIST 85 


v 4 u a? i 















SEARCH DELETE RENUMTERM ASK FILES LFILES CLOAD LOAD CSAVE SAVE 
CLOAD?LOAD?SKIPF VERIFY CHAIN COMMON MERGE BLOAD LOADM BSAVE SAVEM 


% 

m 

m & 

N- BASIC (PC-8001 S*') 

e-f( 

NssBASIC (PC-8801 &*>') 

(SR)-88SRC7)-9-7> 

□ ••••r -f 7 7R&lZ(7)<&Tf^E 

MSX-BASIC VI.0 (£4±MSX) 

D— 7*4 XtmZO 


7° □ 

?IJ£*£LtiJL. ftofc 





7’P 

^<7)^r^t±j * 0 




fin. 

HX 

H 

V 

7'n7'7AC7)-gj5^^ 

WIST*. 

DELETE IB® 

DELETE IB® 

DELETE IB® 

v 

K 


RENUM (»»##)(. (lBff##JC,.«»)] 

RENUM Classic. IS*)) 

RENUM («rTf#■§■)(. (I 01 T#^-)C^)) 


Z-Z KtzA 

5 0 

TERM 

TERM (,(^-K)(,^&$g# 

(7)A# £)) 








m giwfi/t'Mv 





gii2nxi'$7:rY 

FILES ( K7-f7'#§] ® 

FILES ( F7TV#f] ® 

FILES (“tVn'T *£") ® 


g§$£ftTl'3 7;pY 
;u£7’M >^(Zfcii * 0 

LFILES ( K 5 T 7#-§0 ® 

LFILES ( K7Y7'#-§0 ® 

LFILES (“x'\'Y7£”) ® 


BASIC<7) 7 P □ ^7 A£ 
?J-tz *y h^'bP- K 0 

CLOAD "7 7 ^^" 

LOAD “CAS:7 :rY;U£” 

CLOAD (“7 7^^") 


BASICS7"P ^A^ 

P — K„ 

LOAD “7 7-OU£" (,R) ® 

LOAD “7 7<JI/^" (,R) 

LOAD “7zT;U«"(.R) 

7 

7 

BASICS7‘P ^ 7 A^ 
*-fe 7 hCir —7. 

CSAVE “7 7<^" 

SAVE “CAS: 7 7 T 

CSAVE “7 7T^"(,/t;-KH 

4 

JU 

» 

If 

BASIC<7>7’P ^7A £ 
-b-7 r 0 

7*P i/7 ASr^M 7 7 

To 

SAVE “7 7-f^ “(, A) ® 

CLOAD? “7 7-f^" 

SAVE “7 7 'f;^" ['{p}] 

LOAD? “CAS:7 7 

SAVE “7 r YJU£"(. A) 

CLOAD? (“7 7Y;L£") 

> 

¥ 

£&£ftfiL77 7P 
^7A^p —KLXH 
h (7°P 7*7 A^f±C7) 
G0T0) o 


CHAIN(MERGE)“7 Y XJmMteffW) 

CALL) (.DELETE IB®) ® 


X 

J 





b 

> 

CHAINX*£(til£T (? 

£T $ 0 


COMMON (.&»£-)© 


b 

yp^TA^-sfWC 
dFLF&LXHIt (7p 
^7 A^i<7)G0SUB) o 






MERGE “7 T< JU£” ® 

MERGE “7 7<^" ® 

MERGE "7 7<;i/€" 


p— KT -So 


BLOAD “7 7'fJ^"(.(P-K7K^)(.R)) 

® 

BLOAD “7 7* Y JU£"(.R) 

(. * 7-fe -/ h T KU7) 


7> >i§7*P ^7A £ 

-fe —7'T &o 


BSAVE “7 7<^". iz-7'^7KU'7, 

S ? ® 

BSAVE "7 7'f^ n ,t-7m7FU7. 
t-7'^T7 KI^*C.fSfrSa*&7 KL7) 


z'7 7 -f *y ^ m® C7)p*g 
#£P- Ktio 





__ 9o^-vd*r L < 
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F-BASIC V3.0 (FM-71S*') 

D - -7 -•< 

HuBASIC (MZ-700) 

Hu BASIC (XI *X1 turbo) 

DCZ-8CB01 VI.0 .3 CZ-8CB01 V2.0, CZ 8FB01 V2.0 

2 CZ 8FB01 VI.0 14'CZ 8FB02 V1.0C<7)^lT^ 


SEARCH “3t^5IJ” 

SEARCH “;£^£ir 

DELETE nm 

DELETE IB® 

DELETE IS® 

RENUMtSf^S-tK. 

RENUM (#tfT#-§0 (, CIHTr#^-) (, 

RENUM Cff^T#^K.(l0Tr#-§-)C,^)) 

TERM “/\7>-r 


ASK 

FILES C“tV''T 

FILES C“t'/W 

FILES [“-T/W 

FILES (“tVW L) 

LFILES (“7A'-f7^ B ] 

LFILES 

LOAD C u CAS:7 7T;U^”D 

LOAD (“77^^"] 

LOAD (“CAS:7 7'OU£") 

LOAD (“7 7T^S”)C, R) 

LOAD (“7 7<^”) 

LOAD (“7 7YJU£”) 

SAVE “CAS: 7 7-01^" 

SAVE (“7 7^^”) 

SAVE (“CAS:7 7<^«") 

SAVE “7 7T;U^"j‘ |Ajj 

SAVE (“7 7'f^’’)(,A) 

SAVE (“7 7<;i/^) ( , A) 

LOAD? (“77-fJU£"] 
ifctiSKIPF (“77'fW 

LOAD? C “7 7T;u£”) 

£ fcl* VERIFY(“7 7 -f 

LOAD? C“7 7-fiU«") 

£ VERIFY(“7 7 T 

CHAIN(MERGEr?7T;u£" (, 

■£) (, ALU (. DELETE iS®) ® 


CHAIN “7 7<^” 

COMMON ® 





CHAINT'ftffl 

MERGE (“7 7^;^") 

MERGE ("77-OU^”) 

MERGE (“7 7TA'£”) 

LOADM“"7 7 T ” (, (^" 7 -tr 'y h 7 KU7) 

C.RH 

loadm“7 7T ;u£”(, (p-kt ku*H.R» 

LOADM"? 7 Y JU£"(, (□— K7 7 KL?H,R)) 

SAVEM“7 7T JU^S", -b —yMteT’ KU7, 
•fe-7'**7T Kl'*,2tfrBM67’ FU7 

SAVEM“7 7-f JU£”, -tz —T'lSiST’ Fl/7, 
-tz-7'i^TT 

SAVEM“7 7 Y;u£”, i2-7?7Fl^T FU7, -tz-7'&77’ KL7 

C.UfT^T FU7) 



L 




ft# BASIC DATA LIST 87 
















SEARCH LSERCH SEARCH/P DELETE RENUM TERM OPTION LIST FILES DIR LFILES DIR/P LOAD SAVE 
VERIFY CHAIN COMMON SWAP MERGE APPEND BLOAD BSAVE GLOAD 



~ 

S-B ASIC (MZ-700/1500) 

BASIC-M25 (MZ-2500) 

BASIC-S25( MZ-2500) 

0 MZ-700 f-7 , |S(ttI) 

<DMZ-700 QD-DiskKfc 
(I) MZ-1500 QD* Disk Kfji 

SEARCH “*=Par(.®ffl3 

SEARCH“3t^5IJ"C.KH] 

SEARCH 


LSEARCH “£^ir (.1603 

delete mm 

RENUM 

TERM 

OPTION LIST jUCASEl 
ILCASEj 


search/p“^:^ij" c, mm) 

delete mm 

RENUM (tffr#-*3(. P*flO(.e033 
TERM 

OPTION LIST fUCASE) 

ILCASEJ 


delete mm 

RENUM ($r^#^3UIB^#^3C.^33 


FILES (“tV\'<7£”3 


DIR 


DIRCx/\'T^]^UDIR C“t'A-T *€"3 


LFILES C“tVs*<7£"3. 
LOAD “CMT:7 7YJU£" 


DIR/P (“f/W7^"3 
LOAD “CMT:7 7'OU£” 


DIR/P CTVW7£3£fcl*DIR/P 

C“x/\'T7^”3 

LOAD rCMT: 7 7Y^”3C.A(2)C3)3 


LOAD “7 7<;^" 


SAVE “7 7Y JU£”(.A3 


CHAINCMERGE3 “7 7 -f (. 

C.ALL3C, DELETE i 


LOAD “7 7<JU^" 


SAVE “7 7<^’ , C,A3 


CHAIN (MERGE} “7 7-fJ^" 
C.»Tlg*tfr##) C.ALL3 
C, DELETE 


LOAD C“7 7T;u^”3 
SAVE “CMT:7 7 T )V&" 
SAVE “7 7<^(,A (D(D3 
VERIFYC“7 7T>U^”3 
CHAIN “7 7Y;U£" (D(D 


COMMON 

CHAIN T'ftffl 

MERGE “7 7<;U£” 

BLOAD“7 7 if C. □ — K7 KU73 


BSAVE “7 7 Y JU£”, -tr —7?^^7 K U7. (, CUfirMteT’ KU*3 

(. □ - KB*7 KU733 


GLOAD “77T^”C, (xs,y,) 3 


COMMON [.£!&£• -0 

SWAP “7 7^;^" 

MERGE “7 7YJU£" 

load “7 7-f K7 KU73 


SAVE “7 7-r;u«", 4z-7^7 
(, CSSfrMteT’ KU73C. □- my KU733 


GLOAD “7 7'f^"[, x,, y,3 


swap “7 7-r ;u£" (D(D 

MERGE “7 7-T JU£"(. A3 
LOAD “7 7'OL£" 


££ Oh! MZ 1986.1. 


92^-v(Z^< 
















SHARP BASIC 

( MZ-80K/C/1200/80B/2000/2200) 

(0)SP-5030 .'3 MZ-1Z00I 5. MZ-2Z00I 

1 SB-5520 4 MZ-IZ002 6: MZ-2Z02I 

•2; SB-6520 IznfrftlE 

m # 

« # 

SEARCH 


7”P7'7A + /)'bJ? 

5IJ«rlflaiL, 

TT^®®l-^7JVo 

search/p ® 

7°P^7A4>T'^tL§:tl^A'o 

7 P ^'^At/J'bt? 

9lfc»U ~f')>*\Z 

*<W£tB*o 

delete mm ® 

£ ft(::HuBASIC3£T'tiPCG<7)b'y h^J: oi:-tL^4T'^^:tiT^7 hi, £>b*r 
UtfjKEY oXT-fev h LTfcl'f; “GOTO ”^T'T/p 5 C £ *<£> £ (& 

Zf P ?*7 A (7)—g|5#£ 

uraifc-r*. 

RENUM ® 

yp^7A+T*ft)ti'5Ci:li4't'o 



7 P P^7A+T^tl?)Ci:tt4 , l'o 

? —$ ^u^e- Kir A 
£ u 


7 ° p ztitm'o 

^I§<7)A2:^ • /Kfc 



iiiSS! cft-T-i" t'H? 

DIR (FDn) (n(il~40)K7-r7#-§) 0®® 

77<mu*T^^, ##ofcAi:ya^7Ac|3T'^ti5:i:t)*?> (sharp 

BASIC T'(ilj>£ TTLlTlt), 

nil^77< 

DIR/PCFDn) (nlil ~4<7) K7-f7‘#§) 0®® 


nTl'4 7 7-f 
^$r7 r, J >^lZ|±i*o 

LOAD/T (“7 7-f;i/£”D Q~® 

.R«rftlt*fc*0>£ & n'fTlZfe%(7)X, ■?n? : 7l± + X-fet>tlZZ£i) < i>Z> 0 * <7)*§£li CHAIN 
CAS:^CMT:. /'TtJx —■/K5T*(ii^B&Bl 0 A{iS-BASIC#^T' t SAVE—,A T' 
■b—*><7)£p — Kf ft b<T>o 

BASIC<7)7“ p/7A^ 

* M "j h *' <b P — K o 

LOAD “7 7 0^" 


BASIC<7)7*P 7 7A^ 
P- Ko 

SAVE/T “7 7^1^" ©~® 

MSX^tf-UT Hi 1 TI200#—, 2 T'600tf- o 

BASIC<7) 7 P ?'7 A£ 
ij-tz *y Mr-tz-7'o 

SAVE "7 7^^" 

,Am5t7X + -t-^T?)o .P^ftS^Pf^ h £jWT h-TY * 

KT*£'J*K b-yT'^j:t')o 

BASIC<7)7 P ?'7A£ 
•b—7 r 0 

VERIFY(“7r-OU£") 


7 P ?'7 A£^'J 7 7 

<o 

CHAIN ^74^" 0®® 

ALL*&£<7}T£*BASICT(i f ALLfcffrlt* £££&*)<£ (T& 3 tl« A\ fcGOMMON 

L ^<D^C0MM0N^^[1tUi±^m^ ') T £ n* 

<7)T', ALL^(7)T'#4't'(S®)W{-^^:^* < '§:lt}«?n^)BASICT(i, CHAIN < RUN 

“7 7^^” 

4*1'BASIC ll&ttf **&£“«, CHAIN buIZ XX = 999 (7)i n C LT#j#, CHAIN Vyiz%<T)7°uif 
7 AXIF XX = 999 THEN 1000 (7) «fc 7 Ct^o *7 £ *J <b* * — I' £ V Z> tz it) (K 7 

yflzTZ (CLEAR*'LIMITT'5t^L/zVv>i§xU7 7 T'P0KE-PEEKLT 

/?A^P-K LXU 
fT (7 r P^7A$f±0) 

G0T0)„ 

©®®) 

®(t*-TES[tlR^LT. ^^'J<7)7 U-x'J 7^^LT-t,iA< TSfciOC^ni, 

CHAINT'SlX^t (* 

•j 7L^t') 

SWAP “7 7-OU£” 0®® 

CHAINTftfflr*^ : SWAP-^(7)tj(7)(iCHAIN (M 25 T'li ALL £-ft(t£>)(Zffc*#!!A3>oSWAP 

L tzftXlt END *' 7' P if 7 A <h%m> T* fc £ 0) 7 P ^ 7 A (I M * <7> T' f £ <7) 7’ P 7 A(7) j£ * 

7^CHAIN^^a< (X 1/turbo Tii CHAIN(7)iI#BS) 0 

7'P if =7 A£ — 8$tfjll 
^I/dtJLTHTf (7‘p 
:/7 AiNi<7)G0SUB) o 

APPEND “7 7 0^" 0®® 

S-BASIC <D ,A(J77 + -tz-7?ftfc: $r^T<, 

7” P 

LOAD “7;r<;u£ n 

7y>i^P ^7 Ali, P- ttfXZX ^Hi:li7y/gW»Mo 

7y>i7P^7A^ 
P— KT5„ 


% 

"7 •> > In 7°P #7 A£ 

b — 7t5o 



^77-f -y 7®®<7)F9 
££□- KTS., 


mt BASIC DATA LIST 


89 


cfc® IlgnfvA^ fN N V ^ n |v A ■*- (Kih —- £ -‘*>A-*-) 

























MOUNT REMOVE LET DEFINT DEFSNG DEFDBL DEFSTR DEF FN DIM 
OPTION BASE ERASE REM ’RANDOMIZE 


9 

m 


N- BASIC (PC-8001 S*') 

©•••xt *7K&IZ<7)<&#£ 

N8«BASIC (PC-8801 S*') 

(SR>-88SRCW7> KM1*<&&!IWfr<fc 
■D---x T 7 7K£lZ<7)^Tf£ 

MSX-BASIC VI.0 (#*±MSX) 

7 

7 

>r 

# 

ft 

u 

^7 7-f *y 

H 4 <r>± 

F*9^£64KRAMa—K 

CP- Kf^o 




V 

> 

£ 

64KRAM*- K(7)^rrt 

tz-fe-y-r?> 0 




A 

X 

1 

XT 

$o 

MOUNT C K 7 -f ® 

(*») 

(**> 

h 

> 

> 

L 

xt 

T*. 

REMOVE ( K7T7'#f) © 

(**} 

(**) 

X 

satin s-ftA-rs. 

(LET) = m 

[LET] SS« = fS 

(LET) = fit 


-5) 

Si$«7)x7 *;u K7)S{ 

«r»»(z-r* 0 

DEFINT 3W-3S30(, "0 

DEFINT C. •**) 

DEFINT 3S^(-3I30(."0 


S:iS«7>x7 * ;u h C7)M 
fcJMMECT*. 

DEFSNG 

DEFSNG 2S^(-3S30 (,•••) 

DEFSNG 3££(~3£30( f -) 


b$o ^ -5) 
K7)M 

iz-ts 0 

DEFDBL 3S^(-^)(,-) 

DEFDBL C, ”0 

DEFDBL 

IS 

X 

x 

*££<7)3S^A'<b&£ 5 
ES^xX*^ h<7)§J 
fcSt^StZ-f 5„ 

DEFSTR 

DEFSTR »(-»)(,-) 

DEFSTR 3I^(-3I^K. “0 

1 

h 

> 

> 

h 

J-—»f-KI3B[*3£*T 

£>o 

DEF FN|»»£((«§|&( f ■••)))=:£ 

DEF FNMft«C(*Sltt[ f »0))=^ 

DEF FNMft«((lR5l«(( f -)))=^ 


ew «*■*•*. 

DiME5U£(3&$tf>*:fctt( f •••)) 

DIM E5U*(»0)**tt( i -))(.E5ll«-) 

dim E5>J«('as^**fltC."0)(, E5iJ«-0 


g£5IJ<7)TPJI<7)£s3:£ o 

A' 1 IzT^o 


OPTION BASE |0 j 



E5H*rH*T*o 

ERASE E5U«(.E5i*-) 

ERASE E5U*(,E5(I*»0 

ERASE EW*(.E5U*-) 


3£<7)iN££2:£T2>„ 





(7r- h 
*> HZ«fc(t*(Z(**f 

C : A<flft®). 

REM (>3L*R) 

#■ 

REM (>i«0 

REM (>£#0 


-;*fR£S< (*x- h 
*>Mz»fc(t*fc#fc 

: »^®)o 

• ta*o 

(saw 

• mm) 


SSLft(7)«^5iJ«-M 

-t$„ 


RANDOMIZE (&5IJ) 
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F-BASIC V3.0 (FM-71J*') 

<P • x-f 

HuBASIC (MZ-700) 

HuBASIC(XI "XI turbo) 

1 CZ 8CB01 VI.0 (3)CZ-8CB01 V2.0, CZ-8FB0I V2.0 

(2)CZ-8FB01 V1.0 C4)CZ8FB02 VI .0C<7)**hSE 




(W!) 



(*#) 


(^) 

(let) = fig 

[LET] sm* = fit 

(LET] = 4! 

DEFINT ^(-3S30(,"0 

DEFINT 3S^( 3S30C.-0 

DEFINT 3I^( 3S30(.-) 

DEFSNG I?( -0 

DEFSNG 3&£(-3£50(,"0 

DEFSNG 3S^(-3SS0(."0 

DEFDBL 3S^( »)C.-0 

DEFDBL 3^( ^)(. ”0 

DEFDBL ^(-H30(.~0 

DEFSTR 

DEFSTR 3I^C-H^)C,-0 

DEFSTR 

DEF FNMft«C(iR5iaC.-0))=^ 

DEF FNMft«((®3l»(.-)))“ 3* 

DEF FNM&£(tt£5|&( f -))) = 5£ 

DIM E50«(*^)**a(.-])(.E5ll*-: 

dim ge?ij£ 

DIM E5U€(»W«*fl[(.-))(.E50«-) 


OPTION BASE |0 | 

OPTION BASE | 0 J 

ERASE E*l«(.Eai4&-) 


ERASE E*J*(.EJ1I*-) <D 

REM (SIR) 

REM (S-EffO 

REM (>±*0 

•(&W 

’ C>£|R) 

•c»*o 

RANDOMIZE (&$l|) 


RANDOMIZE (&5IJ) 


95^-v(z3St!< 


ttii BASIC DATA LIST 91 
















GSAVE LOAD ALL SAVE ALL LET DEF INT DEF SNG DEF DBL DEF STR DEF 
FN DIM OPTION BASE ERASE OPTION ANGLE REM ’ RANDOMIZE 


8ASIC-M25 (MZ-2500) 

B ASIC-S25( MZ-2500) 

S-BASIC (MZ-700/1500) 

©MZ-700 x—’/REX#*) 

® MZ-700 QD-DiskJft 
(3)MZ-l500OD*DiskKS 

GSAVE “7 7<;U£"(, (»,*)-(*.*)) 

GSAVE yT^J^’ixs.ys, Xr.y^ 

LOAD ALL (D 

* 


SAVE ALL (D 

(.T'W) 

(**) 

(*») 


(*») 

(**) 

CLET) SSS = fit 

[LET] = m 

CLET] = fit 

DEF INT *¥H."0 

DEF INT £*[-») C, -0 


DEF SNG £3000 

DEF SNG £30 C, -) 


DEF DBL £5:(-£3000 

DEF DBL £3T £30 (, •••] 


DEF STR £30L "0 

DEF STR £3T £30 (, •••) 


DEF FNMft«((fi5lttC.-))=^ 

DEF FNHft^CdRSIttC.-))]^ 

DEF FNH*M5[(1R3|»(.-)))=* 


DIME9lJ«(^<7)«*fil(. -OK.E5IJ£-) 

DIM E5lJ«(* ! $<T>e*fit(,"))(.K5iJ ; £"0 

OPTION BASE | 0 j 

OPTION BASE | 0 j 


ERASE E50«C,K5il«-) 

ERASE E5IJ«(.E5IJ«-0 


OPTION ANGLE | RADIANS 1 
l DEGREES J 

OPTION ANGLE i RADIANS 1 

1 degrees/ 


REM £&80 

REM (>3EfO 

REM (i£*0 

’ (}±*0 

• quo 

' H±90 

RANDOMIZE C^5IJ] 

RANDOMIZE (*5«) 
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SHARP BASIC 

(MZ-80K/C/1200/80B/2000/2200) 

.0) SP-5030 3 MZ-IZOQI (§}MZ-2Z00I 

(£> SB-5520 ’A MZ-1Z002 (& MZ- 2Z02I 

(?) SB-6520 (Z<7)<fr?Ri 

ft % 

m # 

5fl 



^7 7 <v @<7)|*| 

# ^ -tz - 7 T •& 

7 

-f 



P*9^^r64KRAM*-K 
(ZP-KT -5 

;u 

J# 

ft 

u 



64KRAM*- K (7)±1*9 

(Z-L-7-r 

V 

> 

K 

(T'S) 



7-f 7?<7M££] Ztetb 

z 

A 

X 

1 

(*£) 


t** v h ^Anfci:#i:l±J-r0ui:(Z(jZ^d:t<7)T* f FAT<7)i^## £}t') fc<7) 0 ifMsfctzl* 

oTLI oT^V.' 0 

X-f £**7 

?z> 

h 

> 

(let) = m 



QmzmziXAtZo 





a^f7 h <7)1J 

^Stttzr^o 




S BASIC, SHARP BASICT*(2, DEFINT #(J4l'<7)T, HoTUi 0 tztzL, DEFSTRtf 
VL&<7)&&*$ZMTZ&WtfS>Z>o MiLlf DEFSTR A C, K, S V t 
K-oT I'tzb, A, B, C, K, S, T, U, V {% ! #$ <7)#l'T 

(i s %! fclZi'SWT, 0iJx.(fAX%, BCD, Dl, G 

R#,H0, J$ AX, BCD$, D, GR, HO, J$ (ZiTZ tlZA'5 0 

4'^', CLEAR, RUN t§IZ(i, MSXIU^T'liDEFSNG A Zt\ MSXT*(iDEFDBLA-ZA«iSj 
Wtz^h-?n^ 0 tztzL turbo ^MZ-2500(7) 

»f7^l- h<7)§! 
^figiz-r^o 

S:S»<7)T f 7 ^7U h<7)|y 
^(Sl^lZt^o 





}a3C<7):£^#' bin ^ •& 
S!I8c<7)x 7^)I/ h C7)§y 

^^^M(z-r?) 0 

rhn, 

#37 

X 

— T- 

DEF FNf?f]&£(te3l&) = :£ 

SHARP BASIC^WfcttTtt, 5I» • Sl&li H®, Rft^U 1 <±m 

tftkL < FR££*lTl'3/ctf>, 

«*(*. DEF FNABC$(A$,B, C)=LEFT$(RIGHT$(A$, B), ( , )+B$T\ PRINT FNABC $ 
(X$, 5, 2)4«b, DEF FNte£B&L f PRINT LEFTS (RIGHTS (X$, 5 ), 2 HBSlZf 3 C 
FN^^nTl'^m^rSBT'Zti^Oo 


J 

i 

h 

> 

y 

l- 

DIM £H£(2$U>**ift( , **•))(, —) 

SHARP BASIC^<7)^MT'(i, 2 XitZXLfrWtZ HKl'&lZ&BT Z> 0 tfz, 255 Z 

T'L*'Im^lZj: 0 tflJAlfDIM A$( I999)T'PRINT AS 

(X)££>fttf ( DIM A$(255,7)TPRINT A$ (X/8 , X INT (X/8) *8) 11 5(ftAR#*>#S 
: £<7 )^&£*t') )o £ tzD\M B( 5 , 2 , 8 ) TPRINT B (1, J, K) 4«b. DIM B(I6I)T\ PRINT 

B (l+6*(J+3*K))CtSo BASIC rtSPT(J^5cT'^> o X 1 

<7)x*, ycjta&.mtt'sinKztX'bZa 

fE5ij*:rrr*.- 


1 0 <7)fl*fcliflfcLtti.':: t X-j* * «J 

# ct 0 OPTION BASE 1 i:LTl^A\ fCKoTU^T|l' 0 

§e5IJ<7)TPS<7)^^^: 0 
*' 1 (Zf^ 



DIM£Jx*t<7)#£ £-f5 7x— b 7 > ho ERA8E0>±ttttl'*ti 3 £ 0 1 OiiTf C4'o 

/iSS^IJ L T, 7 «J - x 'J T 7 C t o Z (7) $*£•(*-X * 'J A«J£ U 4 s < 4 Z> nTfiltSfeli A $ 

ifUzERASEjfcSr&oTL* i UNERASE LT, #IZ HU® £ |S| L (A#£ • 

#tc) <7)DIM£fT9*§^ 0 C(7)^(ige5IJ<7)^-W3H4- 0 i ERASE 

£F0R A=OTOIOOO: A(l)= 0 : NEXT<7)J: ?4k<7)(Zig£$;L5o Hu BASIC T'(i£ <b(Z, 

2/f a<7)DIM£H*TL4v.'«i: •), DIM£&&/rDIM £i§b4^cfc l CTp 
gfc<7)ERASE<7)gffHi, 

#*^5&A<7);^T*DIMLTfc#, ERASEte&So HuBASICT* ti<* <blZDIM£ 2 01U_tH 
yp 7=7 ^(D-Ati^r^Wt^o 




OPTION ANGLE DEGREES"C(2SIN m0) HH » £ CIRCLE <7)8if <7)ipitta< r Jgj(Z4 S„ 



REM 

S BASICS SHARP BASIC T*(2, >±^<7)4^ : £Aft* Z t (JT# 4l'o llZfU, *tlb 

XHt, REM£<7)&(Z, I “ ttfXZ*i)\ *<7)1 &X'ltT$Kl\ Hu- 

S^Tlt : ;ti:t:iz£z.Z 0 *<7)&Tltvji,*z*- bS> hT4<, Xcn'iflzm'iTX 

^Kn 

(7x- h 

7 > h (z^lt^iziisu 
iz : tf&W). 



SHARP BASICT'ti, fr<7)&Ii'Ct*REM tZ, : REMIZ^*. 5 0 

(7f- h 
^ > h tz^ttS ^ # t> 

: (i^W).. 



w (7)^(7) 4'l'BASICT'(i^lzmS/cltT*mi'( if Mllttfcl.')o 

1 - 

&ttwfc«k*w*ra! 

T5.. 

1 

l-l'> — 1 


97^—v(Z$tc < 


ft» BASIC DATA LIST 

























V V.-7- — Hi >4^1 I 



CLEAR CLR LIMIT SWAP MID$ PRINT LPRINT USING WRITE INPUT LINE 
INPUT LINPUT READ DATA RESTORE GOTO GOSUB RETURN IF-THEN-ELSE 




N-BASIC (PC-800115*') 

D -r 


NssBASIC (PC-880115*') 

(§R)--88SR«#P > KHI«ro«:5S' 


up -p 

P---T-V 7. 


• ee^ij • i—tf- 

raass ** •jttzo 


CLEAR 


CLEAR 


MSX-BASIC VI.0 (#*±MSX) 

D-X-f 

CLEAR 


3:^'<v7 t<7)±£ $ CLEAR 7 £)(. 7 KU* CLEAR (^/s'7 7 7(7)^# ?)(, OKU CLEAR (jSt?/\''y7 7(7)^:|?]( 7 Fl/7) 

L *J BASIC <7) *) 

ttfflxij7’*#||KLT 
V'»gi 'J T£5fl$ 

Lf:'Jf5o 


SWAP 


swap 


SWAP 


mid$ =“*^5U" mid$ (sea«, tfc«c.**))=“:»5r mids 'fsac,^?])= u 5c^u” 


ISCf-^ PRINT 

So 


(TAB(tt«) 
SPC(*^-*g) 
l 5* 


PRINT 


( TAB(ftS) 
SPC(*^-*g) 
1st 


PRINT 


[ TAB(ftS) 
SPCO^-^g) 
lit 


yj > ftZT-ffrtij LPRINT 
jjTZ 0 


TAB«±$) 
SPCO'* —7-g) 
it 


LPRINT 


TAB(feS) 
SPCO^ —*g) 
it 


LPRINT 


TAB(fc$) 

SPC(*^-*g) 

it I 


{3£r)"*“'“' ! *[{:}[*-]) 


llStlx —? 
S (PRINT 


K«t ‘Jx-? 
ZAtlTZ (, TE1 

S)o 


INPUT(V-rb-y”; C, 


*-*- K <fc U x — ^ LINE INPUT 

£A*TS (, TEgJ 


7'p^a^t-^ read sea^s c.sca^-o 
^acaca^at;. 


x-?*g<, 


DATA (x—^C,7—?•••)) 


x-?<7>a*Ifc‘H±S RESTORE (fif#gO 




GOTO ^T#-t 


-tr/JU—GOSUB ir#^ 

r„ 

tr7;U—?->£'b'J$S 0 RETURN 


\ LPRINT / 


■’*((:)[*■•■)) {^) ua “■**■“({;(mi 


WRITE f it 


[(:)[*]]] 


INPUT [WAIT ] 

p^-yb-s;" j;|j aa«c.*a«-o 


LINE INPUT (WAIT ] 

j’v-yb-5?"|; jj x^s:a« 

READ (, SCa«-) 

DATA (x —? (, x —^ •••)] 

RESTORE (n#-§0 

GOTO *t*-^ 

GOSUB fr#*g 

RETURN (n#-§-] 


INPUT(V*v-tr-v”;^^(, 3 ®S "0 


LINE INPUT (V yb-S?^)*^SCa« 

read (,^a«-o 
DATA (x-?(, f'—*•••)) 

RESTORE 

GOTO 

GOSUB fT#-§- 
RETURN (fr#-S|) 



IF*# 

THEN (^x- K* > KV 

IFj£# [THEN / *x- h ^ > K I 


IF&# 

THEN f *x-h^> K 1]' 

•5> o 


UtM / 

\ *T*g 1 



l J 



. GOTO TrS^- 

[ GOTO fTi 



GOTO j. 


[ELSE 

fAx-MUK) 1 

[ELSE f 7.x— h > h 11 

TELSEj 

*x— h J > h 11 


L 

Ut« IJ 

[ 1 *r*-g J J 

l 1 

TT#-^ JJ 
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F-BASIC V3.0 (FM-7&*') 

D -’-x-f 7. 

CLEAR 


HuBASIC (MZ-700) 


CLEAR *fcti CLR 


HuBASIC (XI* XI turbo) 

1 CZ-8CB01 VI.0 3CZ8CB01 V2.0, CZ-8FB01 V2.0 
2.CZ8FB01 VI.0 4CZ8FB02 VI.0 iZO&ftlZ 


CLEAR t tz (2 CLR©(D® 


CLEAR 7KL^) CLEAR 7 FU7, $ tz It LIMIT T K U 7 CLEAR 7 K L' 7 2 fc (2 LIMIT T K U 7 ©<0® 


SWAP 

MID$ {£»(,££)) = " 


SWAP 

MIDS (*»€,<«(,*$))» "X¥50" 


SWAP 

MIDS feSC, g$))=“^5lj" 


PRINT 


LPRINT 


[ TAB(fcS) 
SPC(^^-^fi) 

lit 


f TAB(ftS) 
spc(7^-7®) 

lit I 


(PRINT 1 USING“#it":itf / ; l fit 
1 LPRINT J 


INPUT py 7*-*" j; J J 


LINE INPUT p ,7*-*"{;}J 

READ C.S!»€»0 

DATA (x — ? (,x — ? •••)) 

RESTORE 

GOTO *t## 

GOSUB fT#-SI- 

RETURN Cff *-§-3 


IF&tt 1 

f THEN (7x- 




Igoto n#-§- 

(ELSE 

(7x-M>m 

i 

l*r#^ J J 


PRINT 


LPRINT 


(TAB(ftg) 

SPC(7^-7®) 

lit I 


TAB(feg) 

SPC(7-<-7fi) 

it J 


PRINT 


LPRINT 


(TAB(feg) 

SPC(7^-7S) 

lit 


( TAB(feg) 
SPC(7^-7S) 

l it 


({;)[*! {SSSr) ua ~-**-{;K*l{:H*1]] {ISE, )“"“-**-{:)[* (CIP )]] 


WRITE f it 


[*][{:)][*”] 


INPUT 




READ 

data [r~?(,r~?■■■)) 

RESTORE tfr#-5§0 

GOTO 

GOSUB *T#-t 
RETURN Or#-*!) 


IF£# 


ELSE 


THEN f 7x-b7> h 

i fr#-§- 

GOTO n#-§- 
GOSUB n#-§- 
7x- M/M] 

4T#^- Jj 


WRITER [{ 5 }][^**’] 

INPUT | V^-v”| ; j j £»£(.£»*•••) 


( LINE INPUT 1 

[■/■y-fe-srnn { 

1 LINPUT j 

l UJ i 


LINE INPUT 1 (V 7 *tz-S>" (Ml 
LINPUT Jl Ijj 




READ MMS-] 

DATA (x — ? C, x— ?•••)) 

RESTORE 

GOTO fr#-S§- 
GOSUB fr#-§- 

RETURN 


IF 


J ( 7 -?— h 7 > b 11 

1 fT#-§- i I 


THEN / 7x- b 7 > I 
fT#-§- 

GOTO *t#-^ 

. GOSUB rr#-§- 




99X-^(Z^< 


BASIC DATA LIST P5 





































































CLEAR CLR LIMIT SWAP MID$ PRINT LPRINT PRINT/P USING WRITE INPUT 
LINE INPUT READ DATA RESTORE GOTO GOSUB RETURN IF — THEN — ELSE 



BASIC-M25 (MZ-2500) 


PRINT 


f TAB(fcS) 
SPCU^-^fi) 

lit 


LPRINT 


TAB(ftS) 

SPC(*^-*fi) 

it 


f PRINT }USING‘*#it”j ; jj'it I" | ; j|it- 


i LPRINT j 


Tiori 

INPUT (WAITtt%l$M t jj'V JjfflfcSC, £»*•••] 


LINE INPUT (W»WH)[., 7 ^.j; }]*«»* 


Read C.SCft«-0 

DATA (x-? 

RESTORE Cfr#^0 

GOTO Tr#-§- 
GOSUB n#-^- 

RETURN 


IF&# THEN j^x— 
l Tf#-§- 

GOTO 
GOSUB 


BASIC-S25( MZ-2500) 


S-BASIC(MZ-700/l500) 

(D MZ-700 

(DMZ-700 QD-Disklfc 
(3)MZ-l500QD*DiskK& 


CLEAR 

CLR 

CLR 


CLEAR f T KU7. 1 

LIMIT f 7* Kl^l 

LIMIT f7KUX| 

• 

1 MAX J 

l MAX J 

1 MAX J 


SWAP 

SWAP 



MID$ (MM5. ttS(,g?))=“^^IJ” 

MID$ 




PRINT 


f TAB(fiS) 
SPC(^-<-*fi) 

lit 


PRINT/P 


TAB(fe*) 

SPC(*^-*M) 

it 


J PRINT \ f • ) 

i print/p ) USING “ »* '{'} 

non] 

Tl Cl PI)) 


INPUT (WAIT 


r {:}] 


LINE INPUT (WAIT ) 

JV-yfe-v” |;J j 

READ (.£&£-) 

DATA (x— ? C, x — 

RESTORE 

GOTO fr#^r 
GOSUB 

RETURN (n#-§0 


IF£tt (THENf ^x-h^>h 

I t rf#-§- 

I GOTO fr#-*!- 
lGOSUB Tt#-§- 
fELSE |^x— 

L mi 


m#-§- 


}]' 


PRINTC[(^fe][,^fe)D 


( TAB (ft®) 
SPC( 
lit 


PRINT 


TAB(ttg) 

SPC(^^-^fi) 

it 


PRINT{ [CWfeH ,»*&)]}! USING 
l PRINT/P J 

w {;}H{;}n]] 


INPUT (V-y-fe-v; 


READ 

DATA (x-^C,x-^--)) 

RESTORE (^#-§0 

GOTO *t#-5§- 
GOSUB 

RETURN 


IF£# 


IF£# 


THEN ( 7.x- t* ^ > h \ 

1 fr#-§- j 

GOTO 

GOSUB *t#-§- 
THEN f *x— h * > h V 

m#-^ J 

GOTO fr#-§- 
GOSUB *T#-J§- 
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SHARP BASIC 


(MZ-80K/C/1200/80B/2000/2200) 

#SP-5030 A MZ-IZ00I 

<§j MZ-2Z00I 

(15 SB-5520 .4 MZ-IZ002 

AMZ-2Z021 

SB-6520 

(Z(7>^?^-l5E 


CLR 


% 


• * 8 


• SE5IJ • zl —«f- 


LIMIT ( T KL7 1 
1 MAX J 


(ftASCT'ftffl) 


PRINT j" jTAB(feS) j 

(clir" 1 -)]] 

«©T*tiS P C (jg!SMJte<7)fc<7)£ 

Is) L) 


PRINT/P j" | TAB(feS) j 

[{:1e*“H]1 

&(0miSPCfcteAS 


{PRINT 1 USING "#5t” 
1 PRINT/P J 

; [* [{:)[*-]]] 


INPUTCV-y-b-v”;] (.£»£■■■) 


READ C,Mfc£-) 

DATA (7-7(.7-7-:i] 
RESTORE (fr#-S§0Q~<D 


v-r ^PV7 h BASICS M25T(iMfc7 'J7£#7 0 MAX £ IJiIi4'I^W7 F U 7. (&H 
FFOOH) ^to^ 7 7 7i:IJ, ^ □ V7 hBASICC#^4't)<7)T' f ^^<7)11 
N88^fTTJ@^g4'<7)T'^7HZ^LT^< 0 Nsstinj 
*7'y7 (f&T*(i-5I^) IJHSfclZLTl'S (^A' 7 770±|$«m5itt(T)L«)f:lt 
Cffl3ft$nTt'S)oM^»-r^T^lSC<ie(7)TCtKb(iBloTLio-T^.l'„ 

SWAP A, B4*bC=A : A=B : B=C<7)J: ? (ZTS (Cte^oTl'4l'^$fc£*IJffl)o 

MID$ (A$, B, C) =D$ (C *<*■&$ ftTl'ftlf 255 £#AS) 4 b, E = LEN(D$) :E=- 
(E>=C) * C —(E<C) * E : F = LEN( MID$ (A$, B, 255)): E = -(E>=F) * F-(E<F) 
*E : A$=LEFT$(A$, B— I ) + LEFT$(D$, E)+MID$( A$, B+E, 255) ttt> 0 &#(Zj: 
oTli, Ztl£ ‘J b^t1SLm-t%Z.t bX$Z>(DX, 


SHARP BASIC<7>®H|)SPC{JSPACE$(Z{l£#|;t* 0 g: tz©b^tb, ^(7)fBJ(C;tfA-pT 
l'4L'£#(i, ;£AftS (SPRINT SPC( 10) I23ABC^PRINT SPACE$( 10); 123; ABC) 0 ; it, 
S-BASICT*&lZM*fc/><»fc< tZ b&Wo 77 h BASIC, Hu, M25T'(i£Mit<7)&C: S» 

I j@AStf¥<7>teTiiAb4l'<7)"e}±jg (00 PRINT l23;-456«^(iu_,l23 
^-456&#£^ l23-456Hfc*) 0 @® • >*<7)P > h P-7HP-K (CHR$ (3IJUT)0>IS 

m) *<«■«« S /c(iBASICJfc£7M >7(Z<fc oTS4S<7)T*>e 6 OfflZS-BASIC • SHARP 7°U > 7(Z7-7£ft 
BASIC £ -£<7)ffe<7)fy5T'(S:£ < tfoTl'l'Ii t'il*? 7 □ 77 h BASIC TUX^ *>&{£ b , *TS, 
M25T(iM^MH^t*^^, & b L ft, 

#<7>fr<7)£M4b^£1£*S4\ ^oi(7)i^J/;ASTii?n?>o r , 

7<^P77 hBASICTTil4ffiC'£, lOffi A* <7)ftS4 *lS 0 


SHARP BASICS f£*J|JgBASIC( SB-5620, SB-6620, MZ- I Z003, MZ-2Z003) X<T)M%R 
bJSI (#5U*(J(?IW| C)oHu, M25, S25, S-BASICTTi, PRINT, LPRINT (PRINT/P) (7)^^ 
4bUSINGS(ZT£ Z £ t,T# So 


7 7(7)A# $ 
^r|g^L/z { J BASIC <7) 
tefflx'JTSrftJPlLT 
v v >f£x 'J 
LfcUtSo 


@0(17—7 SrH^T 
S 0 


^#4*'<—*(*!£«>, r ;j^ r .jC7)m^(i r .j^S# ( r ;ji: r ,j(ili)S) T:^c7)Bu^(z(i, r. tJ 

£®< 0 WRITE I, 2 ; “ 3 ” 4 b I , 2 , “ 3 ” t Wfi £ ft* (PRINT£4 b ^ I 2 >- S(PRINT £A'L>1?) 0 
3 (-UX'i-Xfoim) £UZ)otztzL, WRITEftp® (Z** L T £> £ C £ *<4A' 0 

SHARP BASICT*(J7 7-tz-v^^TS ^ n4t'(^ 7-fe-v(i“”T't>^t')o *-*— K <fc ‘J 7-7 

7tilUTfcDBASICTti r “7 -y-tz-v”, j £*t£L £A2)TS (, TE« 

t^(7)^?uj^$n4T' 0 wAiT<7)^(i±(c77ffl 0 o.ifM^T^-rf^israj&SB? *)» 

T fc 7-7C7)A*-7 7U777- b 7 > h*^l'T fc^£ftS)^lt*T7!r 
£ oT&l^4fc\^f$(ZfcfcV)^(CR)£*¥T £,N-BASIC ^ HuBASIC 
^<7)^0 N 88 £ M25T'(i2£»a< I ®c7)*§-£<7)<fr 0 £tztt“”i) < ftASft, 

7<7)te, 7-7(7>®|gc^M* < ii')^<7)feS(i^-BASIC (Zj:oTil9<7)T, HfrB#lz 
JELi'-fiSSrA^TScfc 7, ;±iT^:^ 0 


S-BASIC, SHARP BASIC TWc fc:<7) INPUT £(Z-f S c r , j £^t;7-7 A*TSi: 

HuBASIC T«7 7 -tr-^(7)^t>S!»l3ftA$ tit L S 9 (7)T, 
LINE INPUT “DATA=", AS: A$=MID$ (A $,6 )7) £ n Cf S 0 i/i, Hu4 bffe(7)BASICTii, 
Z<7)^(7)^g^*7 hTSo 


+ -/15- K«t ‘J 7—7 
£A*rtS (, TE« 
<b4i'-^mffl). 


7"p 7'7 A4>(7)7—7 


SHARP BASIC UTK'te, 7-7til6JiS:ft«t)lt(tSo SHARP BASICT'tiDATA &HFF4 7-7£S< 0 
Zt&^lzb, DATA 255(7)J: 9 CSlXS:’^ 


7-7 <7)H^m‘Mi$ 


GOTO fT#"^ 
GOSUB 

RETURN 


IF*fl= 


THEN j 7.7— h 7 > 
l fT#^ 

GOTO 

GOSUB 




^T#^-^^-rSi:, 7<7)^r(zM?>^i:*'T'#So ‘J H t7 7U-7><7)7 7 7 ^-!5T(f 

T GOTO T5Zi:(:45o S- BASIC ^ SHARP BASIC T'(i, XX= I : RETURNS J: n (Z L, <¥ 
l/tBUfcGOSUB<7)®^(ZIF XX= I THEN Tr#^- i:T5Zi (GOSUB*'^rP^f^)^T 
izbi'Tzn^-) zt) 0 

MZ-700(7)7 — 7‘K£S-BASIC£ SHARP BASIC Tii, ELSEiU^c7)* S IF 
S (ELSEiU^(i^* < ^TEL44o/z^ #(Z||^T?nS) 0 i tz, £#tz AND^OR4'f ^ tlT 
t'fc^-^(J7<7)@{|IJ(7)^^( )T*< < *J,AND(J *(Z,OR(i + (zrSoJ /z, IF-THEN-ELSE 

ELSE(JMlJ(7)IF(Z^LTl'So 

100 IF A>B OR C = D THEN PRINT"A”ELSE IF E = F THEN PRINT “B” ELSE 
PRINT“C ” 

It, 


mfc'rt izmn£&T 

to 

^77U-7>4b'Jf S. 


3kmz£ V &&&$£*. 
£„ 


ioi^-— itizm< 


itn BASIC DATA LIST 97 


-r V V. -7- — Hi >J @| I 















t\' V-r — Hi >Ja? I 



ON-GOTO ON-GOSUB ON-RESTORE ON-RETURN FOR NEXT WHILE WEND 
REPEAT UNTIL STOP END PAUSE VDIM VDIM CLEAR LABEL PUSH POP 



N- BASIC (PC-800Hi;f)') 

D "XT ^^KS(Z<7)^#* 

NaaBASIC (PC-8801 S* 4 ) 

(SR>-88SR<W? > KMftOTl&aft* 

D •■•XT 7 ?K£(Z<7)«fr#3-E 

MSX-BASIC VI.0 (&*±MSX) 

D •••XT 

Wn&mm <r>mm 
*#*a<„ 




~*a<7>sfc#*a<. 




j'ofc 








xtoficj; i)m 

ON afilsfc GOTO fr#-§- C, fT#-§” 0 

on goto ??#■§•[. 

ON afil^ GOTO 

stnmzji ijtwtu-t 
V/JU—Zo 

ON GOSUB fr#-S§-C, fT##-) 

on aast gosub *t#-s§-(, *t#-§-0 

ON aflsfc GOSUB ??#■£[, *T#^-] 

5fc<7)fiS(IJ: U x~?(7) 
S7c^m»ma$r^* 0 




$.<nHlLiz& i)-y-7'ju- 

Zo 




O 

F0RattS!ft«=tt5tlH»T0 **7fil(STEP 

for ats:s«=« to arra (ste 
P* tHH 

for to »7fii [step 

*30 

F0R;u-yc7)^T<±a 

^to 

next 

next (a«a€C.»ttSft«-o] 

next caaxft«( ( ftttm«-)) 

’ At4'*b— 

tfl'). 


WHILE &#5t® 


WHILDU-y^J^Tii 

£^r^To 


WEND® 


'fT7 

1 S. 

(i;u-y-r*) 0 




REPEATS-7<7>**7 




®T-r^ 0 

STOP 

STOP 

STOP 

yPi/7A(7)||ft$ri^ 

7f £ 0 

END 

END 

END 

■/P AtDUfrSr— 




*y ^RAN/Ul|£ 
5IJ$ra < o 




^77< *y ^RAM_L<7) 




x^u^-a < o 


(Ii:7^f: ircsi') 



T—9 —V-Z? 

'yfitzmc „ 


r-f 
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I02^-vU*5i< 


















F-BASIC V3.0 (FM-715A') 

et-rt 

HuBASIC (MZ-700) 

HuBASIC (XI- XI turbo) 

1 CZ-8CB01 VI.0 3 CZ-8CB01 V2.0, CZ-8FB0I V2.0 

2 CZ-8FB01 VI.0 4 CZ-8FB02 VI.0 lZ(n&?f1± 

ON SMtit GOTO 

ON Mit GOTO fr##C,fr##"0 

ON GOTO fr#-S§-[ f *T«"0 

ON GOSUB n#-§-C. ; fT#-§--0 

ON &&& GOSUB 

ON Mtit GOSUB ff«C.fr#*"0 


ON gfftst RESTORE 

ON ffcfiSit RESTORE 4T#-S§-”) 


ON RETURN #■§■-*) 

ON gfcfitjfc RETURN fMM-0 

FOR i TO HTfil(STEP 

FOR M^=W TO »Tfit [STEP 

*30 

FOR TO **7fut (STEP*#) 

NEXT Cfkttm^C.CkttXlk^-0) 

NEXT («[««»« 

next 

WHILE 

WHILE 

WHILE 

WEND 

WEND 

WEND 


REPEAT 

REPEAT 


UNTIL &#5t 

UNTIL 

STOP 

STOP 

STOP 

END 

END 

END 


pause ^ 

PAUSE l$M 



VDIM i£*IJ£ ’•')) C, "0® 



VDIM CLEAR CHHiST FUX, ^7 7 KUX) 


LABEL “=7'<)\s&' 

LABEL 



PUSH it C st-) 



POP £»£(, £S£"0 


l03^-vH*7t< 


ft» BASIC DATA LIST 99 



















IF-THEN ELSE IF ELSE END IF ON-GOTO ON-GOSUB ON-RESTORE 
ON-RETURN FOR NEXT WHILE WEND REPEAT UNTIL STOP END PAUSE LABEL 


BASIC-M25 (MZ-2500) 

BA SI C-S25( MZ-2500) 

S-BAS IC(MZ-700/1500) 

(D mz-7oo x-ynsum) 

(DMZ-700 OD-DiskKS 
(D MZ-l500OD*DiskKS 



C else {#Si^ >h D 

IF THEN 

IF&# THEN 


ELSE IF THEN 

ELSE IF THEN 


ELSE 

ELSE 


END IF 

END IF 


ON gfcfilsfc GOTO ft##(,ft##-j 

ON GOTO ft##(,ft##-) 

ON GOTO ft##(.ft##-) 

ON mfeiZ GOSUB ft##C.ft##”0 

ON j&ftit GOSUB ft##(,ft##-) 

ON GOSUB ft##(,ft##-) 

ON RESTORE ft##(, ft##-) 

ON RESTORE ft##(,ft##-) 


ON RETURN ft##(, ft##-) 

ON RETURN ft##(, ft##-) 


FOR TO ^TflCSTEPii^] 

FOR TO »7fil [S 

TEP*#) 

FOR TO **7<t [STEP 

*«•) 

next 

NEXT 

NEXT 

WHILE £#5* 

WHILE 


WEND 

WEND 


REPEAT 

REPEAT 


UNTIL 

UNTIL 


STOP 

STOP 

STOP 

END 

END 

END 

PAUSE B#Pb1 

PAUSE BtPe B j 




LABEL (D(D 
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104 ^—is UIH < 























SHARP BASIC 
(MZ-80K/C/1200/80B/2000/2200) 

(g) SP-5030 (3- MZ-1 ZOO 1 5 MZ-2Z001 

CD SB-5520 4 MZ-1Z002 6: MZ- 2Z021 
® SB-6520 Ctf><frTf£ 

# % 


100 IF (A>B) +(C 
102 IF E = F THEN 
104 PRINT “C” 

NO 

~ttt> o 

= D) THEN PRINT “A” I GOTO NO 

PRINT “B” : GOTO NO 


\FX<nftm*&&(Dft{zfctftzb(r> o m*tote%ttte%&<n\F~THEN~-ELSEi: 1 £t>bUl'<n 
T\ GOTO££^ S 0 ^#J f #THEN<7)fte:fc^<7)ELSE(l'-rn 

#) 0>&(J f S&Cl&frL, ELSEtfffttfc»fr&*6«WAH$«.ELSE 
IF —THEN t ELSEti&l'Z. £ *>£>**<IF-THEN t END \Fltfr? I 2* I T1^lTl'?> 0 


ON &fig5t GOTO *t#4|C,*T##--0 


ON ^fl5t GOSUB 


ZftA<4l'BASICTliON~GOSUB T* I ?->tc5Rl/, ^<7)SfcT'RESTORE LT, 

RETURN-f^cfc -5 Ct^o 

Zfttffcl'BASICT'lifcfcWRETURN }r#-§-<7>£ £ <7)cfc T £XX= I <7)«fc O IZ7 7 ^fcjtTT 
IbfcA-Z'f f>CI l J, ^ZTON-GOTOTv* >y-f3<fc 7 l-T3 0 


FOR TO 7-fit (STEP Nss, Hu, M25Tii^3'£7ET'#)$Ht>3$7fii (FOR A= I TO Oi) ^T'#]$HiI 

ig#] <&7fii<7)*§£-«: l 0t,;i/-yL4l'o ffe<7)BASICT'(i#4 < £ b I JflilifrLTL* T<7)X, 

FORJU-7°tCA^>HU(LIF^T'7"7 h L, %&C«J:oTliNEXT<7)2fclIS> + >7T*o i£KHu, 
M25 4' b4'UZt *<£ l'*<, cfc o T »NEXTO0f TfJWf -5* IF j£(C 

NEXT Nss, Hu ’ M25 TiiJblfiOOllSl-^ M F0R^:<7 )^tT 7U—yifttti^^^r^iJ^frT-SCOT', ^JuL'T& 

NEXT [tUt'OL^tWbn^^o r>$ l ) FOR£ NEXT Itmmiz I *} I ICfcH&LTl'fc'j&W 
tfhz> 0 IF-THEN NEXT^li^Bj^'^T', THEN *t#-§-(NEXT<7)£)3*t)<7)c1: 1 Cfio 

WHILES4I'BASICT'te, tfiJ/ttfWHILE A>B4E>, IF A=<B THEN Tf##(WEND<7)#<7) 
^«t 7 CT5. 


WHILES & o /ifrCCGOTOT £ 0 


REPEATS 41'BASICTiiJg.t3oT L £ T 0 


UNTIL<7)41'BASICT*(J, tfiJ/Ltf UNTIL A=B4 1 b, IF AOB THEN f !#■§• (REPEAT <7) 
XcnXin&Z'rt) <n&i i:t5o 


STOP 


END v7^PV7h, Hu, M25T'(iCLOSE<7)## £#t;<7)X\ $*§-£, OPENtf&oT 

CLOSE*<4t'4E>, END(7)jSBU(-CLOSERj^iPo 

tlbO. PAUSE<7)41'BASICT*(iFOR—NEXTT'ft(JU-7@ttli£ 

X1turboJU^T*«—^DIMHitfo i££, X1 turboT*(JDIMT-X -t 'J TJH:4bT fcVDIMT'4 *b 
7°p 

VDIMXl:wL/zSe5IJ(iCLEAR^RUNTTJ>N^4l'(7)T, 7 K U*T‘I60£*&3£ 

LT^77-f -y ?RAM<7)— gB<7)*^fflr S Z £4'T'# 4 (tf&<7)BASICH;f£;fiif 3*§-£ti, V 
DIM CLEARtelfcoT L hTM 


fcLf^nTi'/;4*b, «&*?-y*ffl-£ipie5iJ£ 

flESo i) L X ^ 7 ^cl < f -^(7)S^Mi:^Oi^^4b, ^IE5UC LT»<i«rX^5U 

T*ieit <*-£**', 7v>f§xU7£5H£L, 7. ? -y ? £«$£-t*-5 0 




mTf^#^J0?r(7)S^<7) 

ms( P 

£fr&#spj®r<7>2#g 

&n$kmm <7)i'fn 
<7)^ftfo^4^o/z 

Tto 

stcofilcj: UHfrfc# 
TTr £•?£*. & o 

-tf70L—^>£g;;L5 0 
5t<7)ffi(z J: i) 7-9 <n 

$o 

ft£H]»<&;u-7 r *lsa 

&T$ 0 


F0R;u-7°(7)^7teS 
SrTFf o 


7$rfr 

T (*«»*'6 
±t£b— fgbJls-ZfL 
41'). r 

WHILES-7 <7)$*7fe 

**jST. 

T7L-T> 

TH (if#)*'b^#fi£ 
TlLTI'T fcHte I Jf 
yr*)o 

REPEAT )\s—7<ntf$ 7 

7p AcoUfr^ 1 # 

7"P ^'7A(7)||fiy^ 

7f 6,> 

7°P 

sasMffjfr*. 

^77-f v 9 RAM(Z@£ 
5IJ^S<o 

^7 7-f *y ^RAM_t(7) 


7 't'Jl' < 0 

x-7 £pl 

'y?izmL\ 

7—9 fcZL —+f—^ ^ 


105^— '7(-Itc < 


BASIC DATA LIST i0i 


VV.-T —Hl>aj^ | jgjifc 
















ON ERROR GOTO RESUME ON-RESUME ERROR OPEN FIELD CLOSE PRINT# 
IH B WRITE INPUT# LINEINPUT# LINPUT# WIDTH 


-fr 




4'1'Z t 

bnn§-t5 0 

Sl/LSo 

MiJltt(cx7-£Sg£ 


— K T*H9 < o 


N- BASIC (PC-8001 lift') 

®—TT ^^KS(ZC7)<^^ 

ON ERROR GOTO 1 r#-§- 


NssBASIC (PC-880US*') 

(sRHasROT-tt^ Kwswffi* 


nf) tj 

'D'—xW 


ON ERROR GOTO ^r#-§- 


MSX-BASIC VI.0 (£4±MSX) 

D-t-'T 

ON ERROR GOTO ?!#-§• 


ON ERROR GOTO 0 


ON ERROR GOTO 0 


ON ERROR GOTO 0 


RESUME 


IKS?)] 


RESUME 


NEXT j I 


RESUME 


1 NEXT jj 


ERROR x- 7 —#•§■ 


OPEN “ 7 :rT;u£" FOR OUTPUT AS [ #) 
7tT7U#-^(0) 


ERROR x - 7 —#-?§- 


OPEN “T 77 TJU£" FOR OUTPUT AS (#3 
7rTJU#-^® 


ERROR x -7 —#-§• 


OPEN “ 7 t’T^£" FOR OUTPUT AS (#3 

7?< 


7 7T7U$rfg|^ttiL : E 
-FT-FKo 


7TT7U^iiiP##iA 
* : E- K T'M < 0 

77'fJl/^7>^'A7 

KTM<„ 

7 > ^'A7 7 T 7U-/N'*y 
7 7 Mi£»£*1]‘J^T 

£>o 


7y-r 


7 7-fJK:f-^ $rt±j 
*T 5 ( r . jfcftClffrlt 


7 7'fju:f-ntti 

*; CZr , 

7?<JUrt'bx —? £ 

Xt)T 5( r , j $- 7 - 

ijtfrti?) o 


77<;K)'f>T-H 
AtJ~? &( r , j£"x — ? 


OPEN “ 7 T'fJU£” FOR INPUT AS [ #3 

7^T;u#-§-® 


OPEN “7 7 <^" FOR INPUT AS (#3 


OPEN “7 7 <;u£" for input as c #3 

7 7XiH§ 


OPEN “7 7 T 7 U^" FOR APPEND AS c #3 OPEN “7 7 ^f^" FOR APPEND AS ( # 3 OPEN "7 7 -OUfc" FOR APPEND AS ( # 3 

7 7 <J^ 7 tT 7 U#^® 7 7 'fW© 

OPEN “7 7 X^" AS C # 3 7 7 T JU#-§® OPEN “ 77 T;U£” AS (#3 7 7 ^f^#f OPEN “ 77 'OU£” AS (#}7 7 -OU#-M) 

© 

FIELD (#3 7 tTJUS^, g<*AS£^ FIELDC # 3 7 7 T 7 L#-§\ ££AS:£^S:& FIELD ( # ) 7 7 -f JU#-ir, ££ AS 


C,S?-3® 


CL 0 SE(C #37 7 -f;u#-§-(, -33 ( 


PRINT # 7 7 -OU## 
TAB(ftg) 
SPC(7^— 7>W 

USING fit 


{;}[-]]] 


€(. !?•••] 


CLOSE C (# 3 7 7 < ;u#-§- (, -33 


PRINT# 7 7 ^^, 

TAB(fc$) | 

SPC( 7 ^- 71 ) 

. ^ I 

USING “*■*" | ; j | it 


WRITE [ # 37 


I HI) 

ncr •■)])< 


«(. *3-3© 


CLOSER # 3 7 7 T C, -33 


PRINT # 7 7 T 

|TAB(tt$) | 

SPC(7-<-7a) 

l 5t J 

USING “* 5 r |; j j- 


OH] 


INPUT# 7 7T7b#-§-, 2£&£C, S*fe«-3 INPUT# 77<Jb#§, ^[, 

(®) 


"3 INPUT # 7 7 -f MM&’C, Stt «3 


LINE INPUT # 7 ?-f ;u## t LINE INPUT # 7 7 < LINE INPUT # 77 -f ;U#- 5 §-, 


WIDTH j# 7 7 TJU#-§-\ 
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F-BASIC V3.0 (FM-715*') 

a-f'-r*?JKi zcnn^ 


ON ERROR GOTO 


HuBASIC (MZ-700) 


ON ERROR GOTO ff## 


HuBASIC (XI-XI turbo) 

1 CZ 8CB01 VI.0 3 CZ-8CB01 V2.0, CZ 8FB01 V2.0 

2 CZ-8FB01 VI.0 4 CZ-8FB02 V1 


ON ERROR GOTO 


ON ERROR GOTO 0 


RESUME 


[{£?)] 


ON ERROR GOTO 0 


RESUME 

11 NEXT Jj 
ON m Sst RESUME 


ON ERROR GOTO o 
RESUME J | *r#-§- j | 

ON RESUME (, 


ERROR x- 7 —#-£§• 


ERROR x -7 — #-§■ 


ERROR i7-#§ 


OPEN “0”, (#) 77<^,“77<;^” 


OPEN “0”, (#177^ “7 7 T 


OPEN “0”,(#3 7 7<^,“77<^" 


OPEN T,(#)7 7^l/f§,“7 7 <^" OPEN T, (#) 7 7^^§, “7 7<^" OPEN T , C#]7 7 -f JU#-§-, “7 7 T ;u£” 


OPEN “A”, (#37 7-f^Sf, “7 7TJl'£" 
OPEN “R" t (#]7 7'fii'#^,“7 7'f;^" 


FIELD (# )7 7-f 1$ ASmt 

£(, §S"0® 


CL0SECC#)7tT>»U#-§-C, -0) 


PRINT # 7 7 T 
TAB (ft®) 
SPC(7^-^ft) 

USING 


”**"(;)[*( 


:}[*-!]] 


INPUT # 7 (£&£] 


LINE INPUT #77< ^#-§\ 


OPEN “A”, C#)77T;U#^,“77T^”dXD@ 

OPEN “R", (#)7 7T)L#-§- l “7 7'f JU£”(fXD@ 

FIELD (#)77'f :§: £ AS £^&£(. *$»OdXSXS) 


CLOSE ((#)77-OU#-5(."0) 


PRINT # 7 7^)1/#^, 

TAB«±») 

SPCU'*-**) 

us “' , *'l:H’W(*))] 


WRITE 4? 7t-OU#^.5* 

INPUT# 77-fm,S:»<( I «»«"0 


CLOSEC(#)7 7<;u#-tC, -03 

PRINT # 7 7‘f;i/#§ 

(TAB«±$) ] f [; 1 

SPC(7^-7S) 

WRITE # 7t-OHH§|. it [{ ; }[^*’*]]] 
INPUT # 7 7-01'#^, £&£(, 


f LINE INPUT \ # 7 7 T { LINE INPUT 3 #7 7 T 

ILINPUT J ILINPUT J 


I07^-v(I*7e< 


#n BASIC DATA LIST 103 















































ON ERROR GOTO RESUME ON-RESUME ERROR OPEN WOPEN ROPEN AOPEN XOPEN 
FIELD CLOSE PRINT# PRINT/T WRITE# INPUT# INPUT /T LINEINPUT# 




BASIC-M25 (MZ-2500) 


ON ERROR GOTO 


BASIC-S25( MZ-2500) 


ON ERROR GOTO 


S-BASIC(MZ-700/1500) 

(DMZ-700 

(D MZ-700 OD-DiskKS 

(3) MZ-1500OD*DiskKS CI<7)<fr?p£ 

ON ERROR GOT0 


ON ERROR GOTO 0 


RESUME 

ON SMIst RESUME C, 


ERROR 17—#■§ 


OPEN “0” ,# 7 7^H§, “7 7'f^" 


OPEN “I",# 7 7<^#§, “7;rT;U£" 


OPEN “A”, # 77^ JU##, “7 7 < )\y^x" 


OPEN “R” , # 7 7<;b#§, “7 7'r^"(, U3- 

FIELD # 7 7<;H§, 1$ AS C. **”0 


CLOSE (#77^Jkf§(, •••)) 


PRINT # 7 7 T 
( TAB(feS) 

SPC(7^-7*) 

.1* 

.USING “*5r [ {;U^ 


WRITE # 7 7<;i/#§ [*[{;}[*..]]] 
INPUT # 7 7^^ (, 


LINEINPUT# 7 7T;U#-t, 


ON ERROR GOTO 0 


RESUME 


[«£?)] 

ON ifcfitxt RESUME fr#-S| (, fr##-) 


ERROR i7-S§ 


WOPEN # 7 7 T A/#-*. “77<1^" 


ROPEN #7 7-OU#-^-. “77<^" 


AOPEN # 7 7 < 7U#-§- t “77'f^" 


XOPEN # 7 7 T 71/#-^. “7 7<^" 

( . L' ^ — KJI) 

FIELD # 7 7 TA,##. g?AS5C^» 

« C. **•••) 


CLOSE (#7 7T^#-S§-(. •••)) 


PRINT # 7 7^W 

(■ *{:}[•■■)) 

.USING “#iT 

liiHcrioncir 


ON ERROR GOTO 0 

RESUME 


[{ST>] 


ERROR i7-#§ 


WOPEN “7 7T ® 

WOPEN # 7 7<^#§.“7 7-1'^"(D(D 


R0PENC"7 7<^"] ® 

ROPEN # 7 7'fik#§,“7 7T^" 


XOPEN # 7 7-fikf§,“7 7'f^” 


CLOSE ® 

closec#7 7T ;i/#-^C.”0) dXD 


PRINT f /T ® 1 

1 # 7 7 T ®(D / 

j[. * [{;}](-]) 

Juaw "«*'{;}[*({;}[*■ 


INPUT# 77<m, INPUT/T?£8£ (, Xtt«-0 CD 


LINEINPUT# 7 7<^,^a« INPUT# 7 7<JI/#f, — ) 
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SHARP BASIC 
(MZ-80K/C/I200/80B/2000/2200) 

.0) SP-5030 3 MZ-1 ZOO! '5; MZ-2Z00! 

1 SB-5520 4 MZ-IZ002 6 MZ-2Z02! 

2; SB-6520 

IS # 

ft # 

*1 

ON ERROR GOTO fr#-§<IXD<D 

7-7m> SHARP BASIC Tiiffi*tt4ftffl&li4v.'*S INPUTA7}T S 

7-HHl4-T>£ GOSUB T'DWft-to Sfc, MZ-2Z001 ((D) £ III 

F^<7)BjtelC4MZ-2000-2200ffl(zHiTl'5<7)X, Ztl*tizr> Xb^\ M#(iMZ-1Z010 o 

X7— 

-=e<7);u— 


ON ERROR GOTO 0(2)©© 

7ZX'M&3£+®rL f KU^iHCl^o 

X7-ifl[M%ff*3 
4i'Z t ^ift?)o 

tSL 

X 

T 

RESUME j'jff## j|©(D(i) 

/i/i<7)RESUMEXtix7—$I:£3:(Z, NEXT$r#(7S £ 74>-&<7);£fZ > S Z -if (7) 

X7-^l5i;U-T>4 
b?l!)|T i) 0 

1 

h 

y 


RESUME ON-GOTO Tv * >7L4$fcXRESUME 

xt<7)fillzj:oXX7- 

V 

h 


x ^ -#-§-(*# BASIC 1:7-5 X £il^4 £ 4, - <7)^(Ji7>y ¥^ 
^(7)X7-#-§-^?lJfflLT:x-if-x^-^^c-r fc<7) 0 hu#I7 7°p 7 7A^C(i|tiT:4' 

L' 0 m#(iSHARP BASICXT*G0SUBlZT£4U41itTo 

S-ti-So 


WOPEN( nyy 7-T;U^”®(D@(SP-5030 
Ji/T(jttit4i') 

WOPENf/T )“77T4£” 

l dxDd) 

777 P77 k HuT'»i5Etc^(7)7T-r^sg$nTt'%a:#B4en%-}SLTfffcc^-rs 
(M25, S25, S-BASIC, SHARP BASIC XliK(z:jT£TS 4 bKILL-DELETE TS) 0 7 tT 4# 
-§-(7N, N88, MSX, HuTliHow many files ? 4MAX FILET^Lfc#^JUTTT&3£1" So ffeX 
tJ7 7’<4#-£«1M00flJ$4<bBSlzSM>T£<, (i!7 

T T )l/#f-»tti7 t T iHf^r-7'Jl/^loT 1'5 )„ 

-FTfKo 


ROPENC/T) r77^^")®(D@ 
(SP-5030ti/TO#(t4l') 

ROPENf /T C77^^*) 1(D©© 

l #77<m. ,, 77-f^* ] 

N, N88, MSX, HuTliH L 7 tT4£1' < 7 4(7)7 7 T4#-^-T|I]B#{Z|!fi < 0 

7 7-r lx 

— FX'Ko 



Zft441/'BASICTte, 7 7T)U^I%^iJb L, SIJC07 xT 4{Z##&<fr, fi^Hi LtzJ5<nfr 
CLOSET S o ToTftCf, 7 7 T 4<7)^m4 T'-? SriiiqLT^ < Z WIHTA5, 

7tT 

KX*Ba< 0 


XOPEN # 7rT4#-i§- f “7 tT;u^”(D(D(D 

7>2*A72tX(7)^il7yt-^i:77 ? P 77 h^T(iA£ < !4'5o 

77-f 7 > ¥ AT 

7-t 7^E- F'T'H< 0 



v<i7P77 1- ^BASICT*(£7— ? li256(M25(i fc o £ 4$ < T#5) i?^/<y77H 
LT7 7'0 ^t-7(7)^^7o OGETIZJ: <j/\*7 7 7i:Aofc1 UP— K-fr(7)7—:? 

(i, Z(7)FlELDT«*mTfc3t«»K:i»WcftAdn*. < 

IslC X 1 L#HSLT^l' 0 ffitzFIELDT*!*; £ftATS (LSET-RSET£f£ 

l)t, £l)tfjlZ/\'‘y7;p(Z7<7)7-?4'fe'y ^tl^o TLXPUT^It') t7 7<JI/Cf-^ { 
FIELD # 1,200 ASA$, 40ASB$, 16ASCS4 b 1 L P — K (i200, 40, 16 SC^cn 3 
frmLTfefrtlZo 

7>^A7 7<M7 

7 7lZ^^f«‘mX 

So 

7 

7 

-f 

;u 

CLOSE C/T) GXD® 

CLOSE rr/T 1 1(2X5)© 

Ll J 


77-n^ni;^o 

X 

X 

1 

h 

> 

V 

PRINT ( /T 1 

l |7 7<^, ©©©j 

JP[ {;}][-]] 1 

l us,NGW {:}ri{:r-]]]l 

VT7P7 7K Hu , M 25 TttMS'M&tH* t ± < |sl L -f 7 -vT#£ ai ftS4', S-BASIC 
(7)QD, T'-f 7 7KJ5-S25X(J r , j 4m>ftS £ TZ (Z3tfr3 - K(0DH)*<#$&£ HS 0 
S-BASIC<7)7 - 7°}& £ SHARP BASIC T12 r ; j b r , j fc 3 — K tZ 4' % 0 SWt 3 - K C 4 6 fc (7) 

^^')4()4l't)<7)(:^lilT5^ti ) 1&(T>tztb 2 7lU_h(7)PRINT2;(Z L4(3 7 (PRINT 

#1, A$, B$-»PRINT #1,A$: PRINT # 1, B$ (7) J: o t-)o i^HHu^(7)^(7) r ; 
o' L X Hi 7) T S (PRINT #1,A$; B$-*PRINT #1,A$ + B$^) 0 

7 7-OH:f-^ ^rHi 
73TS( r ,j^#(Z#(t 
4o)o 


INPUT # 7z7i,Ztl4'4^BAS- 

ICTXiPRINT # ^tCLT^l'C ; jli r , jCTSZ ^ )„ WRITE5l(7)m t>#f$T Z (IULT 
7-'7T'&5)„ 

7 7-OH:f-7 ^HJ 
73TS(x-7(7)[7-bD 

U iz r , j^-fT(t^) 0 



v<i2PV7h, HuTii, r ,j(ziq^. 7^.-7 t,x-^(7)E-b7]0 Z<^4T<7)X, 

PRINT^ r ;j T'&®<bftfc»fiSr r -*fc f ^-ttTA73T^> Z i: AX'# f&XiJTtl^XS4 

l'C7)X, QD-x< 7^HS(7)S-BASIC^:S25X(JPRINT5:(7) r ; r , jCT?) 0 M25X*(i, 

U‘^7(7)PRINT^:X(iU'^7x-^ L^'HiT: L4L'J: 1 CT?>( r ; j^ r , jX^(7X2'>iU±(7) 
PRINTHTS)„NX'ti#-1 t LXAty h 7 7 Hz 7^J(PRINT # X t |i]^) o 0PEN(i^ffl 4 
OTX^tt^FCOPEN^iiipTS Z Z o 

77-f 31^4 b 7'— ^ ^ 
A73T S ( r , j £7— 
7OEi(JU4t) 0 


INPUT j /T 1 

1 #7r-f 4#-5§-,®©® J 

Mfc€(. MW-) 

PRINT # 7:^x-7<7)®(t}JtL(Z^](.'XL'^>(CHR$(32)^}^4'4iN[5I 

0, T(7)i i < *J«#LXfclfS)o 

7?-f 44 b 7'— 7 £ 
A73TS( r ,j£7'-7 
C7)IZ^D 0 £*4£4ia) 



k^a&o 

1 ^r^lJPlTS 

(Hi73^)o 



l09^-v(ZiS7C< 


ttfi BASIC DATA LIST 105 




















LSET RSET PUT GET MAXFILES DSKI$ DEVI$ DSKOS DEVOS FORMAT DSKINI 
INIT KILL NAME SET DEVICE CHDIR MKDIR RMDIR COPY HDOFF 




N-BASIC (PC-8001 (3.*') 


7>yA77^fM7 LSET 
£S< o 


NshBASIC (PC-8801 a*') 

(SR)-88SRc7)+J-0> 


LSET 


7>yA7?<M7 RSET ® 

7 7tt'746T'7-5' 

£S< 0 

7>yA7 7<JU:i PUT C#)7 7-r m— F#-§9 

hi- Kw*-r«>o 


RSET 


PUT C#)7 7T7L#-§-(, 


7>?'A77'fJW'^ GET (#)77T;i/#t( l l/3-K#§) 
1 Uzi— KA^TSo 


GET C#] 77 7 -f U □—K#"*§0 


IsW::| 581JS7 7-M/ (jgfmt-How many files? T'g?LZ>) 

<*>»*#«**• 


(££ftf]B#lZHow many files ? T*^^.5) 


7'T 1/7 h (Zx Y * * DSKI $ ( K 7 T 7#-§\ v «J > ®##, DSKIS (K7< 7#-§-, > ') > ?'#-!§•, ©#•§■, 

-tz??#-^)®® -tz 7 7 #-§•)<§) © 

dSKOS F7<7'S§,y | J>^Sf,@#§, DSKOS K 7 T 7 ##, *> >J > ©#-§-, 

-£??#-?§- © iz *?#■§■© 

FORMAT K7<7'S§ © 


7 

X 

'f 

;u 

x 

x 

I 

h 


77'f^mMi 
i:t§ (t-V U^h'J 
&I&-7T 
7CT5)o 


7?T JU&iSifSo 

KILL 

“7 7^^” ® 


KILL 

“7 7^;^” ® 

7 

So 

NAME “|07 7-f;U£" 

AS “®r7 7TJU^” ® 

NAME “|07:r-OU£" 

iLlzTSo 

SET 

F 7 T 7 #■§• j 
“7 tTJU^” 

. #7 :rTJL#-§- j 

|-“P” ® 

SET 

F7<7S§ ) 

“7 7^^" 

. #7 7T7L#-§-J 

7 7</K7)*#a^ 

TSo 

SET 

F7T7'Sf 
“7 7'f;^” 

. #77^Jb#^ . 

.“R" ® 

SET 

F7<7'#§ } 

“7 7*OU£" 
#77<^#§J 

7zT;U^rii^(7)1AS 

i:^To 

SET 

F'7-f 7 #-§- 1 

“77'fJ^” 
4t7r<;u## j 

|’“ ” ® 

SET 

f K 7 T7'## 

“7 7<^" 

1 #77<;f#§ 


Jit^l 

i 1 


ii 

jglI 


mm?< us b'jzm 

IRTZo 

PgJi7*< UZ h >J 
$ts 0 

i/Z h >J * : M 

irT So 

7:pT>»U£z] kl-TSo 


Kt^T 7.3 0)^"; 

FMT^o 

77<J^ii:fi:7 
7T^A*77 7^» 
-TSo 

-f s„ 


MSX-BASIC VI.0 (34±MSX) 

d ■•■r* 

LSET = “X^sT ® 

RSET = ® 

PUTC#]77-r^#-§-[,Ui]-K#^] ® 

GET(#]7W;U##(>3-K#-§0 ® 

MAXFILES=7 7-Ol/» 

DSKI $ ( K 7 -f 7'#-§-, v U > 

■fz ^ 7#-§-) ® ® 

DSKOS K7 T 7#^-, > >J >7'#^-, 

CALL FORMAT © 

KILL “7 7^^" ® 

NAME “I0 7tT;L^” AS “$t7:pT7U£"© 







copy “mtuty T < " TO “fe&$fc7 y T JU 

*" ® 
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F-BASIC V3.0 (FM-7&A') 

■V—T-t 

HuBASIC (MZ-700) 

HuBASIC(Xl *X1 turbo) 

1}CZ-8CB01 VI.0 .3CZ-8CB0I V2.0, CZ-8FB01 V2.0 
(2CZ-8FB01 VI.0 4 CZ-8FB02 V1 .OC £ 

LSET s^as^'s^sr® 


LSET ®®® 

RSET X5!S:S«=‘J»St"® 


RSET 0®® 

PUT (#} 7 7'fJI/#f(,Ua - K#-s§0 ® 


PUT (#] 7 7--r^##C. l/3-FW)®®® 

GET (#) 77<W( t l/a-F«) © 


GET (#) 7 7‘1'^#§(, m-K#-*)®®® 

(je|^)B#(Z How many files ?T*^x. 3>) ® 

MAXFILES 7 7 T 

MAXFILES 77^^ 

DSKI$( K T 7 I s 77 ^ §■*§■, "tz 7 9 

#•§•) <®)® 


devi $ 7A'a^’ , ,u3-F#§, 

DSKO $ h'7-f 7##, h 7 -y ? #■§■, t?? 
S#® 


DEVOS “T/W > □ - F S§, ^ ”, M ^r - ^" 

DSKINI K7< y## © 


INIT “fA'O^" 

KILL “7 7Y^” ® 


KILL “7 7'f^” 

NAME “IB7:rT;u£” AS “^77^^" 


NAME “IB7t'T;U^”AS “Iff 7 7 < " 0®® 



SET|“7 7-r^" 1. “P" 0®® 

l#77<^S§J 



SET f'“ 7 t T “R" 0®® 

1 # 7 7^ J 



SET | “7 }, “”®®® 



SET “7 7 f “S” ® 


DEVICE 

DEVICE “fA'<7^" 



CHDIR “r^U2 h 'J£” ® 



MKDIR “r'-f l/2MJ^"® 



RMDIR “T'-f l/^MJ^”® 



COPY “|fc&x7:rT;U£" TO “®7 7<;^" ® 



HDOFF F7'f7t§® 


Ill 'i-vizmi 
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LSET RSET PUT# PRINT# GET# INPUT# DEVI$ DEVOS INIT KILL DELETE NAME RENAME SET LOCK 
UNLOCK VERIFY CHDIR DEFAULT MKDIR RMDIR 


BASIC-M25 (MZ-2500) 

BASIC-S25( MZ-2500) 

S-BASIC(MZ-700/1500) 

I.MZ-700 x-7°)&(ttM) 

7,/ MZ-700 OD*Disk)lS 
^ MZ-l5000D*DiskKS IC<7>*3 hGE 

LSET = 

LSET 


RSET X?gl»«=-3:#:sr 

RSET t" 


PUT #77"f l y^—Y #•§•] 

/ PUT # 7 7 Y 1/7- F#•*§■] 

1 PRINT # 7 t 7 Y L 7 — K#-§-), 5Et 

PRINT # 7 7'f^#§(l/3-FS§), 5fc 

C,5fc»0<2><3> 


(. *•••)) 


GET #77^ !/□- 

/GET # 77^^03- K#•§■) 

1 INPUT # 7 7 T JU#-S§-( L □ - K#-§-), 

INPUT # 7 7-fiU#-^(U=l-'K#^-),^(, 

^••0 <D® 




( $ J= 1 71® t V PI ( t 3 <7) ) 

(# (c i m t x-m i * * <n ) 

(D(D 

DEVI$ 7£", 1/3- 

DEVIS “fA'Y7^>a-K#f, 


DEVOS “t-Vn'T 

DEVOS 

-? VSC^x-?” 


INIT 

INIT “x/W7^” 

INIT “7A'<7«" dXD 

KILL “7 7^^" 

DELETE “7 7^^” 

DELETE “7 7'fJ^’’ (DCD 

NAME “IB7tT^^’' AS “^7 t Y ;i/£” 

RENAME “IB7t<JU^”, “ff77<;U^a” 

RENAME “IB7:pY JU£”, “fr7 7 Y 

SET “7 zT “P" 

LOCK “77^)^” 

LOCK "7 7Y)ka" dxD 

VERIFY/ON 1 

1 OFF J 

VERIFY/ON 1 
l OFF J 


SET “7 7^^", “ ” 

UNLOCK “7 7T;U£" 

UNLOCK “7 tYJU^” dXD 

CHDIR 7^" 

CHDIR 

DEFAULT “xVn'Y*^” (2XD 

CHDIR x< U? HJ£” 

CHDIR “xY U7 b 'J£” 


MKDIR b 

MKDIR “xY U7 b V£” 


RMDIR “xY U? b 

RMDIR 7Y L? b 



KILL C#7t’YJU##C,"0] 

KILL (#77-f^#f(,-)) 

INIT“CFD)#-§-: / KxY7'?Y7 1" 

1 v'J 777^1/“ b , ? Y $ >W 

INIT “CFD)#-§- : 

(F7<7'^y r 

ly'J>m^T7yi— b , ? Y $>W 
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SHARP BASIC 

(MZ-80K/C/1200/80B/2000/2200) 

C SP-5030 (3) MZ-IZOOI <DMZ-2Z00i 

(I' SB-5520 A'. MZ-1Z002 <£/ MZ- 2Z021 

•2; SB-6520 IzSfrttfc 

fit # 

« £ 

$• 

m 


A^sfrOgStfFIELDT^LfcSS X S<7)«7a'bJK(Z#ffl$ft, £<0(5 

<7)15-7) AS* 

7 > / A7 7 T 71/7\' y 

77i:S7AT'f-^ 

£E< 0 



jfc^ttft$tfFIELDTi*3gLfc*£<l: l J #14, 

coX- A Ci-fcTJ U t£T b ft * o A^iJ< 0 ^: $ #££<O £ # ( 5 £t> tf> TTt A $ n, £ X /c^t( £< 0 (5 
l) Cli7^-7^A?)o —ftStc(iLSET*<«fc <teftft, RSETtt&S Uttfcftttv,'. 

7 >^'A7 7 T ;U7\' y 

7 7i:WT'f-? 

^r£<o 


PRINT # —K#■§•), it 

C.*) <D(D© 



7>?'A7 7T;m: i 

up - KiU^rr#*, 


input # 7?-fKS^), S 
(. 5 *) @©(S) 


•>t-7°^<0BASIC T'(i 1 LP-K(i32A^ ( S25TT* b o £ ***>•££') <0@£T\ 1 UP 
-Fi:i7(7)f-^^I<J:?i:lTl^o 7 7<M7 7 7^m'iT:«0 t 

TUt><0<0, X^J^33^1UJi<0^(Z®^J4'<0i;, Mlx-A<0^i|itf&< fcU (7^P 
77 h^T'teMKSS, CVS 3?<Oflf)&£te;ltfft&3im<Oi: £M£$(t£)o ZCO/ztf Ux-A 
► 7^P77 7° P A 7 A £#C,x- A<0$|ii£ A4»S(C^3ET $#'#*''£> 5 » 

7 >^A7 7 T Jl/£'b 

1 UP— KAftTS. 


(&& (IL T ift W C fJ ‘) 'ik X b ft * (7) ■T** 

@®(D 



mmizrm^yr^^ 

<7)S^T2»o 




7'f^P77K'U, t-?(7)§1);IU:[J7 7<^a' 7 7 7<7)#0 (LOAD • SAVE Tf 

-^77'f^ffli:lJf;bn4'U) *'T$ftft, FIELD #0 ~X'7 > A A 7 x T )HI]$<0^5£T 
fiJ‘J 'MX btltz^^LXXiHtir^o Uti-7 4 9 P77 K-lif-f ^A^Efc'tfHu^Xi;*: 

N, MSXtei&il7*-V-y ho F, Hu(if§ilf7 * - V *y K Z ft b <7)|BJ(7)S^ 

?VU^ F IZt^? 
£'bAftT3 0 

AT UA M:fT 7 7 
£&2)-T3o 

fA'OW(tt-^ u 


DELETE “77<^" ®®® 

RENAME “107 7^;^", “$f7 x T ;i/£" 
®®® 


7 7<;^;^t?», 

7xT;i/££ttlt$/t 

5o 

7 

7 

'f 

LOCK “7 7^^" ®®@ 

N.Nssti F7<7'i#i:^Ufe^?)o ±(C**tefl±ttfctt<7>fc<7>fc0>T f MiT(i i 
'SI<04'UBASICT(i, ^TUoTll'o 

7X'Ol/£#3&*£t 
it (If -So 

;u 

x 

X 

i 

UNLOCK “77<i^" (D(D(D 


7 xT;KO« 

/ < l J77<T?)J:')i: 

r^o 

7 7 T Jl/£i§'&CO#tS 

i:lT 0 

i 

h 

h 


ttl' fctO'CtelfcxT L 

7 7<;bmW 
ICT5 (x-r UA MJ 
*®17T 



h 7 > hT*x/W*££i£IB&Lfc£ #<7>xV\'T7£ig#-t£ fc<0 0 tfiRtfHu TDEV 

ICE “1 :” ACOPEN T,#1 f “TEST” £ L fi £ # L (i OPEN“l ”, #1, "1 : TEST” 

**«rr* J: 7lZfc£ 0 






Pg/Ix-f UA HJ £iM 
1RTZ, 




XI turbo. MZ-2500^<0«aT(i, £ ‘J L n(Ai ‘M£ftft& Z £ {Jfcl'A<) 0 

Pg®x «f U A h V ^rfT 
J5Jct*^ 0 





Pa^x -< U7 h >J 

ST 



ynOxA^b-^P-KLT-fe-yr^cfc^H-rSo 'JxTSrflFoTftffl 

t5„ 

77^1/^ t’-T5»„ 



X1turbolU*fl*/\- Kf^^m4'i'(7)T'lM'i' e 

7\— Kr-f 7. A (O^ -y 


KILL(#7xT;u#-i§-( f -0] 

—/It CLOSE L iz'&, * <0 7 x T )!/*'** #&**- Yti^tzt # (i, KILLAT'7 x T ;i/£8lj& 
r^UwXl^fsribA'WlfiTA7<;^ LTlE5£(igiiT3£‘#<o^uif £-co* * 
*n5) 0 

7 7'fju$-l1i;fi:7 
7<JU\'y7 7^SJi 
T5, 



IB ? T 7", #r?T7‘<0x<77 KvT 7'C^r^/z^(0^(te<0/\*VP>T'(Jl2^T^L') 0 

KxT 7(041?!^^ 

r?>. 
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INIT OPEN PRINT% INPUT% WIDTH CONSOLE 


m z 


N-BASIC (PC-8001 liA') 

<£»-T4 xtffiUzcnfrmE. 


NssBASIC (PC-8801 II*') 

(SR)"88SfWt?"7> KHftaffiBt' 


np -n 

-x -r 


ItTSo 


RS-232C(7)/\°x / — J INIT ^E-K, K OPEN“COM#-§-: (/\* *J x <f t'-yh 

Srfx^TSo &^E-K : i8251(^=1 t'x K«P:S>£(*:J-353R)))3"AS(#] 7 t 

< 7L#-§- 

:E(«#[) N(4L) 0(^&) <7) *T 

n*r i 

t**y t* •• 7 t tzlt 8 <7)^ (8<7)B$IJ/\*M =r 

7 h*y7tf‘y h : 1 (1 t**y h) 2(1.5 tl *v h) 
3(2 fcf-y h)<7)^tu!)'1^ 0 
M7j>£:X(X0N/X0FFftJ®]-f S) N(L4 
t') 

*^-^5I:S(fc''y h #*7(7) £ # (I^$)T', SI 

/soc«tu*^*a6ftflrr*) n 
(L4i0 <r>Z^hb\ 


RS-232CCf-^I PRINT %#-t, £(•••) (PRINT # Sfcttffl) 

fir So 

RS-232C*'<bx-?£ INPUT %#-§-, £»(. "0 (INPUT # 

atrrso 


5C^®@(7)^E-K^riS: WIDTH (tfj&H. *T») WIDTH «t!ScC. fx«feD 

S(i(Z^7F^) 0 *tfr&t;J:36, 40, 72, 80<7H'-f ft*' o n${(;j:20£ *«j|B[(i40 i (i80„frg[ti20a: /z(*25 0 ^7 

(i25 0 SI^77T‘y^c7)K*y hfilic 7-f‘y^H®(JS!*7«b4't'(^«!l)o 

<7)*3i2 fg,«* 4 L T^ftSoWIDTH 

80, 254bl60x|00K-y MI4S. 


K£lx 

7Ui&®)o 


CONSOLE (®teffH.(^»H.(7x>*'> 
a >*—^TfH. * 7 — "E— K}]) 

0 4 b^y <7 P^E— K IZ 4 
U , COLORS7*U >?3£Cl4So 
1 4 b *> x —t ■- K H 4 ‘J, COLOR:£<7)^ 
7?>^'>a>+-i 
7F(i 0 4 b^Tjs. L 4t\ i4bHi®coST 
fflSS5 
5Hi;£S)o 


CONSOLECBH&frX Cfr») (,(7?>^y 
>*—x— ; E — K))3 
JKN^IllUo 


3 


MSX-BASIC VI.0 (#*±MSX) 

D-f-f 7?KjXCl<7)<&#£ 


(SCREEN T*a$)o 


WIDTH 

^32+frRE— KT*WIDTH 20^11^S^, 7 

ffi~ 26«rSA«l£ffl(c4S 0 £*<7) 

^4b^^IS[S£ < tt(i'g>ibtlTI'3> < 0 
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F-BASIC V3.0 (FM-7&*') 


OPEN “| I |;(#)7:pT7U#-^,“C0M#-§- : 
[(? □ -y ? t'yh A'Uf-f 

h)]" 

* ? a "j S(£) £ fcttFto)*)^ *>4. 
2«&<7>tf-UT h 4 t; *y h : 7 

! E(ffl»)N(4L)O(Mfc)0>£' 

*141 

^hy^t'y Kl(lt'y h) 2 (1.5*y h ) 
3 (2 fc: % y h)<7)£'ft4 I 


(PRINT # ««:««) 


(INPUT # 


WIDTH [«»](, firfii) 

*«jtttt40*fc(i80 o m&ti20£4li25 o i/ 
77<>y^m 


OONSOLECMIftffDC, (ffiftH.? r>?'>3> 

*-**))] C. (*5-*-K))) 

*77>>‘>a>4r-*SttNfcHi;o 
*7-?-FB0T*7“, I TT/^n 0 
^ y ? □ Rfti&'Cftjp $ n s 4&j£4& < 
4‘*. :nii. FM-7 A<^7 7-fy^RAM 

“U: •) £1'-] fc<7) 0 


Hu BASIC (XI* XI turbo) 

HuBASIC (MZ-700) u CZ-8C80I Vl.O 3 CZ8CB01 V2.0, CZ-8FB01 V2.0 

2 CZ-8FB01 Vl.O 4 CZ 8FB02 VI.0U1C7)<*#£ 


INIT “MEM(#^-]:" 


OPEN C , ( # ] y 7 T "COM#-^- I — l/'f hi] — K *^ x ) ~r 4 

t* "j h * h *y■/1 *v h ■(***& cstra*? 

#3e(H**WL(i>Ka-K)))))r ® 

SKTx-K h =1— K : 0 ~ 6 (0=150, 1=300,2=600,3=1200,4 = 2400, 

5 = 4800, 6 = 9600)(7)&^ 

/OJf-f : E(fB&)N(4L)0(^8)<7H'-f*i4 

t**y h I 5,6,7,8,(7)l'-rn*' 

* h y7k*y h : I (11* *y h)2(l.5t:>y h)3(2t'*y h) Ol'ftifr 

: X(XON/XOFFflj®t-*)R(RTSTO<ON/XOFFT£) N£fc(i£ 
»&( L4i>)(7)k'-rn*' 

:S(SI/SO»T^>)Ni fclitfB&(L4l')0H'-fft4 
: C(CR<7)«fr)L£ 4li^B§(CR + LF)<7H'-f ft4 
0^^51 : J(PC-980I =1 >/'C^(7)IBh+4Bh/IBh+48hT'*IJ«I)-N $ tzlt 
*■&('> 7 hJis)<7)iN-rn*' 

x> K =l — K : * T 7 ? ? □ — K 00 h~ IFh *l4C: 40 h460ii £jjq 
* fc D £ fc (id4' lb 04 h 4** 7 a - K (c 4 5 


(PRINT # Steffi) 
(INPUT # 


WIDTH fir» ®(D(D 

WIDTH [«r»]C f fr»X. ^ 77 ^y 2 «»tHK,f'fXyKt- K])XD 
&tfr$t(i40480 o fr$t(il0, 12, 20, 25(7)1'^ ti4 0 ^77-f 'y^K*#M£jf(£ 0 
4 *b 192 £ fc(i200 K *y h, 14>b384£ fc(i400 K*y Hc4$(X7^(i*fr&X 
8 K *y h) 0 K (i 0 

IT'15.75kHz? 7 7f-f * TV 7,2T24.5kHz? 7 7° (iS#H£Jf) 
7^7‘Hof;f;L^77«f >y ? *£400(384) K -y h (iiSfli&Jf <7)*nT 0 £ 
fcfrttl0m*ft*fc^7;*7U7tt#^ o frtt420, IOTf^(i^5 7T -y ? 

12 W^77-f >y? 192 

4384,25^-4^2004400 K*y K 4fc, X I T'tifr&ti25(Z®^ 0 


CONSOLE S8&*r, n&L ffil&tfj, ♦fr^D CONSOLE *t&(, M&tfT.tfTft) 


ttii BASIC DATA LIST 111 






















o 

INIT RSMODE RSO RSI WIDTH CONSOLE 


1 



BASIC-M25 (MZ-2500) 

BASIC-S 25 (MZ-2500) 

S-BASIC(MZ-700/1500) 

® MZ-700 

(DMZ-700 OD-DiskKS 
(DMZ-1500OD-DiskKS CI0}3 h£& 

init “mem :(*#£)(, 

INir.VIEM : (*# £)(. X7’-^<T>±$ $]" 

INIT “RAM (*l?]Uy-7(T)*|?r 

§ 

INIT“COM#-§- : (tf-K K./'C'Jx-rCkfv h O h I' caaw&C 

INIT“COM#-§ ! ( tf - U -f K, '* V x < (t* >7 

INIT “RS#-^- : tz ? >J >:/□— K, Mix 

K =i — K ] 

M> h 7 7’t'7 

£=i- K" (3) 

HI)])])))" 

«<• cant emits can (s 

0 ~255<7)(£T* f 1 <7) 

— UT h ; 75,150,300,600, 1200,2400,4800,9600, 192000)1.'?* ft*' 

(x> 

L-y htDlf^^T- 

(turbo(i0 ~ 6 /ztfrMZ-2500T' (i # — 1^ T h *<7) fc<7> 

JKM25i:|i)F*3^o 

??-*„ 

B§f$9600) 


L*y I' 7"i+t7 

: E(«»)N*fcBtt«S(4L)0(»«)OTl'rnfr 



t’7 h : 7 £ tztt&ogQ&TZt 8 


L-y h 6-SfIRTS 

* h 7 yt'7 h ; 1(1 fc'-y h )2( 1.51:' *y h )3£ f:IJM(2t;'7 h)<7)l'-fn 


L-y h5~3 - T^fflL 

t s 


4'l'($C0£*g3fc) 

vmufe : X(XON/XOFF$lJ$)?- $ )R(RTST*XON/XOFFT 5)NSfc (i^fflfc 


L-y h 2-£1fCTS 



t'7h 1 -&1fDCD 

ftOKSfit: DELu — K(7Fti)Sfg^(7)toiI 


L‘y h 0-SlfDCD 

N(NULLo£ UOOhC^) B(BS-?£ »;08h£2£&) 


^1x^3 - K : 0 —255(7) fifiT'fcl’y hSil 




: C(CR<7>*) Li fc(J^B&(CR + LF)<7)l'-rn*' 


L-y h 7 -0 = 7 L'-y K 

; J(PC-9801 □ > / <7)IBh +4Bh/IBh+48h ) 


1 = 8 L*y Kf-^fe) 

M(MZ-5500/6500 n >/ff- (7) IBh + 09h/IBh + 01 h ) 


t'7h6~4 - Ltt 

POBJISu >/\*^<7)|Bh+24h+40h/IBh+28h+48h) 


l'(ai=0 %-»3g) 

hJIS)<7)l'-rtl*' 


L«y h 3-2 -00 = ^ffl 

x> K=J— K : K00n~IFn(7)l'-rn*'lC40n7!j'60n 


oi = * h . y y 

Utz-X^o D if: (id 4* b 04 h7t- -OU0>**7a-K£ U 


fcf *y h li 

5 


1 L: y h 
10= ^ h "j~f 

L*-y Mi 

1.5 tf *y 1* 

ll = * h "J~f 

L*y Mi 

2 t: *y h 

L*y h 1 •0 -00=/\*'j7 L 'r 
fcL 

01 =£&/'“',! 

7~ -f 

|0 = /N*'J TT-T 

fcL 

ii=fsa^u 



T-f 

(PRINT # 

(PRINT # 

(PRINT # 

(INPUT # 

(INPUT # 

(INPUT # 

width nm 

WIDTH 

(^(I40«tX25^t) 

*tfrati40A'80„ ^T»(il2,20,25(7)L'tnA'o 7 -r 7 *#M& 0 

*M25L|5)rt^o 


CONSOLE Mttff. ftftC. Mifefir, «i») 

CONSOLE BfjjiSfr, m&(,M8fr,«ra) 

console mi&'irt, sac, fiia] 
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SHARP BASIC 

(MZ-80K C 1200 80B 2000 2200) 

(0) SP-5030 3) MZ-1 ZOO I |)MZ-2Z00I fjg % 

q) SB-5520 4) MZ-1Z002 6 MZ-2Z02I 

© SB-6520 (ZC 


XI/turbo (i OPTION SORE 

EN 2c7)£#lZ48K^£*S(turboT'(i2te£TliT) 0 MZ-1500, 2500(iK'W Y Mf£<7);*;£ ? T 
/i/zLMZ-I 500(£Z/U >n7‘-7(A' 7 77)^btT64K£T', MZ-2500(i RAM 
x-f *?Cil28K, yj >^^7 r -7«64KJ T'^T 0 MZ-l500T'(iRAM*-K(*7->a»^ 0 


RSMODE f A | C, RSIf tl'*y h C, T£1f t' INIT^CZ «fc ‘J S fc (7) £, OPENBSMZ;**)* b<T>ttfhZ> 0 OPEN1Z «t S b (7)li, RS-232C 
1 B J 7K,Mt“K))) t RX^ 

(DdXD 

xt'vY : 5,e,i,&<ni'?tifr(*mibs) 

"E- K : 69-71-7. h >yyt'«y h li I tZ'y 
h 

73—75—7 h -yyt'y h (#l.5t: 

.y (, 

77-79-7 h y^Ey Mi 2 t:'*y 

h 

69, 73, 77- 

70, 74, 78-A'Jx'T £L 

71,75, 79-fS»/'C'jT--f 
69-79(7) + S t> 

0>fc»«T*(1®*IH*79) 

IT^T: 0-SfS^ 

I -Sf8«jh 


RSO | A Jt"-? 


77-f 7U-rT 7? 'J ~7‘ 9 <r>^ bcnOtzthcn'Xo Nss, F, Hu, M25, S25T(ix -f 7 7 • 

* -tz yHt &ii<7)PRIN T # (<fc ftli'WRITE # fc) S, 


RSI | A j 


774 j\sti *?')-/5<r)%z.-ftl) < U^b<n<r>tz6b<n$: 0 n 88 , f, Hu, M25, S25T(i-rT 77 • 
iHz-y h n (7) INPUT #(&n(i LINE INPUT# h) So 


CONSOLE Ctfr& ©~(D L4i' 0 o 

•^«T^(i40/)'80 o ^r^(i^ic25o £‘J, #:£§iz&teTsc £ CiTS 1*, i'< £ £«>T»J<7)i' < oa'(7>Xi-^ttr* 

7AT'f5j^rLi q £ *>A,<>:iIft¥-f SC £ £, ^Lf:lv\*V3>(;^n^T^ 

3 tLXT‘$t£\.'tibZimfct%1)'*Z*>Kt%jLX1rb®ifjLT%Zt'Q3b%o 
WIDTHS, 80Hf<7>yn^ J 7A^40«i^ffl(7)/'CVD>lZ»tt-r-5<7)(iilLl'. LA'L^ftT 
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U 4 (FDCMl* I/O7KI/7) 


OFF 811 

)/37> KU*x*?(CR) 

IN/OUT 

0FF9h 

b77^PiJX?(TR) 

IN/OUT 

OFFAh 

(SCR) 

IN/OUT 

OFFBh 

f-?UvX>(DR) 

IN/OUT 

OFFCh 

FM^^«$/K7-r^NO.-9--T K.t-^-ON 

IN/OUT 

OFFDh 



OFFEh 

I. 6 M ^'f’y(2HD)iS$ 


OFFFh 

500K(2D) 1M (2DD)-t3J U 



I i (7)gg-fr(3: turboffl 


0FFc H ai*rt#<7).*^ 


7 6 5 4 3 2 10 

rreixi ;ixm i i 


L 


K7-rXN0. ( 0 — 3 ) 
Kffi* 

( 0=»-f F 0 
\ I = X-f K I 
t-J’-ON/OFF 
I0=OFF 
t I =0N 


S3 I 


^ x- 9 7 

bit 7 

bit 6 

bit 5 

bit 4 

bit 3 

bit 2 

bit 1 

bit 0 

TYPE 

I 

□ 7> K 

NOT 

READY 

WRITE 

PROTECT 

HEAD 

ENGAGED 

SEEK 

ERROR 

CRC 

ERROR 

TRACK00 

INDEX 

BUSY 

TYPE 

II 

y — k 

NOT 

READY 

0 

RECODE 

TYPE 

RECODE 

NOT 

FOUND 

CRC 

ERROR 

LOST 

DATA 

DATA 

REQUEST 

BUSY 

x-^ 

NOT 

REAEY 

WRITE 

PROTECT 

WRITE 

FAULT 

RECODE 

NOT 

FOUND 

CRC 

ERROR 

LOST 

DATA 

DATA 

REQUEST 

BUSY 

TYPE 

III 

y — k 

NOT 

READY 

0 

0 

RECODE 

NOT 

FOUND 

CRC 

ERROR 

LOST 

DATA 

DATA 

REQUEST 

BUSY 

y — k 

NOT 

READY 

0 

0 

0 

0 

LOST 

DATA 

DATA 

REQUEST 

BUSY 

x-T h 
h7'y^ 

NOT 

READY 

WRITE 

PROTECT 

WRITE 

FAULT 

0 

0 

LOST 

DATA 

DBT A 
REQUEST 

BUSY 

TYPE 

IV 


'ffe<7)=] 7j 

> KH^ 


W-H7> K(D*x-?*fc'-y h fc lajaRT)*?*) 

0 

1 

(Writer) 

□7> K<7) 


NOT 

READY 

WRITE 

PROTECT 

HEAD 

ENGAGED 

0 

0 

TRACK00 

INDEX 

0 




S3 2 (7-t — 7 7,<nM^) 


□ 7 > K 

* x - 9 * 

* * 


NOT READY 
( bit 7 ) 

NOT READY = 1T'XY Kx< 0 


WRITE 
PROTECT 
( bit 6 ) 

WRITE PROTECT = lT'x-f iA<frftTl'& 


HEAD 

ENGAGED 
( bit 5 ) 

HEAD ENGAGED = lT^*y K if* x'-T T (Iff L ^(t tlT l' $ „ 

TYPE 

I 

SEEK 

ERROR 
( bit 4 ) 

SEEK ERR0R = 1T"<U 7 1 D7 < -JU 

* $ tlU ij'x> tzi)\ ID 7 -r -A, K (7) b x -y ? ## t Fxy^l/y^ 50 
<t 4 = 


CRC ERROR 
( bit 3 ) 

CRCERR0R = 1T', ID7-f -7U KaTc^ttS L^lcSt^Hi L x x -h'fo x tz » 


TRACK00 
( bit 2 ) 

TRACK0 0 = 1T'X'T ^^<7)^>y K/)< h x y ? 0 


INDEX 
( bit 1) 

INDEX = 1T"T >x7^^^-^?r^aiU/r^^^ro 


BUSY 
( bit 0 ) 

BUSY = 1TFDCA < 3 v> 


NOT READY 
( bit 7 ) 

NOT READY = lT'x-f Kx«f 


WRITE 

PROTECT 
( bit 6 ) 

WRITE PROTECT = lT'x-r 


RECODE TYPE 
/WRITE FAULT 
( bit 5 ) 

y—KUf^W^. RECODE TYPE LT, x >J-x 7 K x-^ v-? <n&fM 7 h ? 

ti. f-n-^yt7 

7 0IS« WRITE FAULTtf>*7Ft LT, 

TYPE 

II 

/ 

RECODE 

NOT FOUND 
( bit 4 ) 

RECODE NOT F0UND = 1T^$ ft/z h x 7 ?#•£. K#§, IE 

L < SjE^tti?ft/c lD7-r-;u Ka<4'A'xfc*£7jrto 

III 

CRC ERROR 
( bit 3 ) 

CRC ERROR = lT'X'f 7.^/)'b ID 7 T -;U K t L < Uf-? 7 -f — JU LUfcL' 

T. WLX7-i%7/:i^fo 


LOST DATA 
(bit 2 ) 

LOST DATA = lT'^r^WF*9lCDR<7)^aiL, 


DATA 

REQUEST 
( bit 1 ) 

DATA REQUEST = 1T', FDC *<^0-b 7 T DR L L < (i## 

fLTl'4$^To 


BUSY 
( bit 0 ) 

BUSY = 1 T'FDC^U 


FD1791 i £ V x- x $t y-r 4 i/ * 
^L^FDCf', Xl/XlturboC'tebbTl' 
i> MB8877 (S±ii§H) i£FD1791 7 7 X ) 
CJltSo Z <XCW L-CA«PD765tt 
»,00B5ILA:FDCt'*So S$$©^ t-T* 
5 n C, 2 O© 7 7 X V 
£ 11' 5 r 4-^ AFbIBH&j (*#£ L 
ftl'o 

*>&*(:, FMS'JI-x'OFDCliXlfcPI 
UMB8877, MZ 7 V - X'tt MB8876 frliio 
-Cl'So 8877 t8876©iti'li, '**.7 4 > 

fffle «, r"— 7 © 0/1 * 5 7x$i1- S © f# 
So t & b t>, X1 -C't" 4 X7C&HFF=& 
Bllllllllt ZO) 

t" 4 X 7 4? MZ© Kx 4 7'Ci L jib't & 
HOO = &BOOOOOOOO* t l%A, l li-ti-S 1i'7 b 

i#t**s. t©ffctt4ofc<rai:-tr*s** 
c., “I—©Il'jJSliX1<->MZFalx'x''-f X7© 
^ bflXO 4rt S*#-g-//{fC'*S„ fcot, 
vi'!t4'i'o XI t MZ©T"t X 7© 
UMi 1 1 ' i If, 1) 5 Oi o* s ©7C 0 t 
fcbt>, SIDE 0/l*7I?j :<Dtz\ ItLC^ 
Stbi'Sii XI0^0 V3- K(iMZ© 
^16wn- Kt'*S„ $C, MZ0IOI- 
= - KliXl©^16^3- Ktr*So 
^Ii:AJ. S 1 * s MB8876/8877©n -7 

> K, S2 x^"©^iKc, S3 * ? x t 
-^xv^xjriDliltrtS, t'— c 

5. Kt* 

lfii:fi?|jiL'Ci'< bltTLf**, £©fti(:S4 
* ? * S o C. n* ? Xl/Xlturbo-r© FDC 
© i/o nvx x'h s „ #fec>! t,n a- as 

#liXl turboft ©IT, t 
1£bfti'„ 



TYPEI©US 

FDC, MB8877 4r3?l^i:1£o T A S ©T" 
* So i-T, TYPEI ©n-7> KliltWII 
X'f£{, BASIC*' f.rtffijLSOt't.J: 7 
Jf&i'JPIftii Lr*S„ AA'L, FDC4?§1 
o Tfiji'i-1 r"-f x 
A 1T S d t i)f L(if L(if* S©f', 
bit b ii'r"t xxIU/Hi-t-y b l fti' 


=fc 7 C„ 



FDC 4- fsE 7 ii u l ft u b (i* ft c> ft i' © * ? , 
K 9 -f 7"© -fc w 7 I' t ^e—7 — ONtT'i) S o 
Sbefi, 0FFCH#mi^Is67©-C'*S„ 4 
-f K7 1/1 (“1 : ”) cj^bT b X i' 7 * 
--? -y b L ft r" 4 X 7 4- Abt, BASIC*' 

OUT &HFFC, &H81 


tfrAiXb-ri'AA'i’ Ai'o b"7^7'i© 
#i'LED* f #|!, r"4 X7**11 OaiLAU: 
t'T*'* S o LtF'5/ 7" 0 L 


































































































































































J. 


!g20l'7 77frifil-C^7 < ;0/n/7itrii, xx-7x© 


T^i'Ali, &H81©*>.b tM:&H80ir* 
S„ K7^7'0* f ®!),4i-r-r'*55o 
i'i5 £f**BlTim 
i'o^-r'{>iEiLri''C 4 l *•*:**&<.'© 
TtltfcS C t til-So 
OUT &HFFC, &H01(4 L < tt&HOO) 

S„ &tf'l#f&*'li'7 t, :WirMx 
^^UDibL-C*^, M**ST'&SJ: 7 
i:i«l 'C'un$|i[]* } *'*‘s *>c, &©/' (6 
i’Si'4?).oi x777-fc 

xffit l-C-#B«Hc2f8ctt, 

®t"-( x75r@Lfe*So 
®t" 4 x 7 **&£©itgt (^TMOOIhUk) (z 
ft Ufio, 

®m*f OSi'A* DT S„ 

©r"-^ x 7 £ih&4 S„ 

tioti'S. 

ihuhi*. -tec* 

ft®~®cMA.-C< 

* S„ @7"—Ji.x"4 x^4 s iioT Uo 

-Ci'Si*?,, (tfSDlkl^-Ofci; 

& c, i At "4 Xft s * -r 
fiffciitnifitii'O-fiJ. •zn-t'ii 
«FBOiSB:* f *Si'©t', ®-T r *-7- 
*7j 

w x7©^-7-£jb&-t\lt>l!!5©iIi£l)# 

|41£1< ©-t*s„ :n-r, &(z-f<"S* 

•‘Po-c^'Cfc, ifft$tiftt.'-t''ttj > ©-t'* 

Sc *-TAL, fe-TALc 

■CM, 4 p^'LiiA.-C'ASc !)xHf 
is. 

*t'liFFCH—SlH-r, KtT 7*1 ©^e— 
7-^0N1-Sc GOSUB “WNBSY” tT, 
x"4 x7**iEL < 5 e&#!SC ftS *fifo, 
#CCFF8h (a-r> Kv'S ; x7) ^02h (|g 
10!)xl-737>n ^OUT-TSc Six 
f, KxT7'©^t Kli^O 4 t (— 
#*HBD ^#itt<iis. 4t>£/L, ^ 
yKli'7l50iS r 7"7j **gj (bit 
t'^oBfisi******* *> G,i30ir©GOSU 

b --riftf^^T^ffo-c^Sc 


U-Sc 

£©licitxf x7° • -f vT', *7tSC 

1 4 7 T7A"U0«U^-7t s„ 

$ -C,220fr*' G©-t7V— 3->-Ct> S **, 
c. <xliFF8 H (xr-7xw7'x7) 5r£SS 
Ooo, MSBtLSB (®7 k"7 h tSSOk" 
7 4 ) **fc 4 C 0 C ft S©£#-7 4 ©-f't> 
S„ % 7 k" 7 Mi r NOT READYj, t ft 
b% r i4WKAi'A fci’5*«fc, 
& 0 k" 7 4 It r BUSYj, -f A b ft r >.'£ -It 
Li'©o ! j 4 L < li r i A"ffl|i.'-0.'S# 
4>t'A,* t Ao 

11' 7 jtBfc-fift S„ Itlttfc < **1/0© 

FF8 H #J4li 

OUT L tz l £ It a t 7 4" v-7"x 7 
INLAt lUxt-^xi/^x^ 
tAo-O-S, 1M2 ® A © A% 


5-e-ti'Sc El l © i 7 c ft 

SliTr*S„ U-^l, £TAS 0 
£ t* *] ” It, r WNBSY**£q JoAij 
t (.'7®&fcT'£>S„ -t-7 

-tv4>4SStH:4:S ^-T'ifoti'S 
bUA"*'G, *©£A0 H = 10100000 b 
7 k" 7 4 ** 1 X'f) S c i'otii:|5k'7 
4 4 ito T i' S **, s tilt 7 K* s x" 4 

x^i:ffL7it4titi'5j fci'Swtfr 
^Lti'S-tt17'**, hzi'c Jilt 

xi-riis©it^-«i5j©^i* 4 a i'©-r*o 

Ac 

ft J: -o t mx 0 t S **, FDC«FDD0 C 
It HLD t HLT t (.'5-»^-***S 0 HLD 
iiFDC*' G FDD^© ry ^ t K A t ^ X 7 (Z 
flloltASkj ti'7#^-t'*Sc HLT 




140if~170iTli r 7-7j -r*Sc c© 
a-7 7h"©^i^li, J-fliTIpffit LT, 
FFBh (f-^w/x^) tz @ (ft 4 t 7 7 
#^-AOUTL, FF9h(4t77^7"x 7) 
^*ift© h 7 x7{iM^0UTtSc JAtZ3 
7>|Vi'X|l^5'-^377l'' (IEh) A 
iimi', r 77 77 7j t l' 7^ *±XX, 



m 1 


] 

AO 

AO 

AO 

A0 

A0 

A0 

AO 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

AO 

AO 

AO 

AO 

A2 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

A0 

AO 

AO 

20 













1 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

05 

04 





21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

20 



] 

21 

20 










































































































liFDD*-C,FDC^®I=4§-X' r *U t FDD 
lir'4 x 71: ^ 7 K £ L 4 o tl 

L L i. ~$ j ti'5 i> 0)X 

4 0 L*-L XI X'li, HLDIi*-7°>, H 
LTIi5V^7VwT -7 7"5iru:i'50/' o t 
4b*>, HLDfi4f-ttf»n: hfcbtiX3sC>T, 
HLTIi '*•(: High ®£ iX'bio zbliE' 
ji'5 c ti’ti'p fc, 5J44>f-JUT®-9' 
4 X® 7 n -7 t°—r'T x 7 K' 7 4 7'T'ii— 
WFjt: Kii$i:r*4 x7C# Loll 

^n-ci.'4*>c,j t£<D1*o m&L Xi'4«.' 
*\ XI® FDD h £ 7 4-o-Ci'5ii-f-r*So 

«fc o 13 5 t" 7 h It X”A 4 „ 

St, 01 ® 2fi'S4 1 IJ ft: r A2j 11' 
7®* s l ^/TrffiX < So dtittt&l fc'7 h 
* ? jtotl'S®T'*S„ gg3-l*'C, r INDE 
Xj tb*-S„ T4fc*>, FDC«C®« 
t: 4 7 t "7 7 x4^—^L 4®4“ o f) 
t liT —7 t AOhT, Wi<:^7 t' 7 h 
0<:4*> r NOT REAEYX'li4 t.'jo T4 
bt. r ffljfiX'l> 4 J: - 4 j t 4-o T WNB 
SY*- U 7 — >T S®T'* SoSi'Sb-4 
* ? , c®± 7 4xr-7xt:4S®li, g; 
!*(*&) t:FDCt:Siinfcax7 K* ? T 
YPEI ®3-77 K4 , 'o4*’C>X'£So L*> 
L, TYPE* f 4A.t'*-ot {> r NOT REA 
DYj t r BUSYj iilBlEC It't'C,, IBtJ- 
4 t*'o 

ikr. WNBSY t:*S®li, RESTORE 
Cl x h7 : h 7 77 0 ^®-7 —7) ® t It 
X h So 01ii=00000001b t , BUSY* f 3feA 
XVS„ ®fi®li7li, 05h, 04iit4o'C 
t'So 05 H (iS3-l*'C,6*'S i 7 t: r TRA 
CKOOTTAND BUSYjT^So Uot 
f$X!X*-, T-Tt:TRACK0 i:*t5 
4 4%, RESTOREiftflsiij&b^TAE? 
&-*>„ ?• 4x4 ®t: BUSYt ti4t:c IIS 
t —S *\ tfc©04nX"FDCii, B 
USYfcfl**) TtfTt.' S„ tf-A,o *4xi:L 
x hf;51"7 I- * s o x —I'oti- f —4 

-ox A. 1 S 0 i, 'yiJY (*§«) 

s tcts®-r*So 

A'4 ! 7-7a7> Kfi®WNBSYT*So 
fcofc, 21 h=00100001b4'o 
jt-o-ri'S„ h '>ij ho l — 

i, c.ot>liJFAt:BUSY* ? 0ts4-o-C*?- 

■b h-r*s„ 

Wi* 5 x t 7 7° • 4 '-/Xfo S„ 

— 7 t In] EX'* S**, 

I I I I I I I I | I I I I I I 


So t i' 7 |§Ib -o X <•' S o 
JUTT'01 <X>%mWkk& b S o 
f'lii'f, }'-^37>|f|:7i<t^ 
saitfcf. ^-737>Kt*tt, 
f-^^'x 7 <— g (ft h 7 7 7 #*r 
h7 7 7^iXx7<-iMl5E® h 7 7 7#^- 
t-t7 htsbtt4'*‘, f-LXE/A4ffi 
@J4 C t 4t S *> 11> 7 t, FDC*M»T& 4 
®FDD4® : aL'Ci.'S*‘ii4®/':'„ o* 0, 
J5J£ {> ® FDD 4 J&fts $ X 1 ' S ® 4'*‘ C ,, 
r *i*© h 7 7 7#Wi iixi©*&£-£i»ir 
4 7^5, ^ h 7 77ujXx7(i#fj 
fi® r h 7 7 7 # ?-j 4 L X 1 > S ® X - ', 
1 &® K 7 4 7"4’0 4®j*> L X i' SIf-g-ti, 
g&tl h 7 7 7 #-§-4 x''— 7 ^x 71: -t 7 

hTS4'ttX'0K4®X'*So L*'Ligeti 
U t A, if ® '7 x r a x'FDDti 2 ^JU_h* S 
*-f>, DOSIi4^t'4 h®7 —7^V74]# 

otl't, h 7 7 7#?-4fm, 

* It L X T c, 4 tl Wf 4 4 i'o 
h 7 7 7 t^T^x 7** |> 7 7 7#^-4J$7 
ti'S:t 45SIS1- S 4 tb t: tt, 

175 PRINT INP(&HFF9) 


195 PRINT INPI&HFF9) 
4AnXT4ili'l3ti.' 0 “20”, “21” ti^S 
4xS UXXf) S„ 

iAt: A*4 r 7 7 7'j t: o 1 »X lawt S „ 
t;xh7(:li, h, V, n, ro®40©77 

7'* ? * 9, &»m;tHt£LTi'S 0 i-fli 
^2-141.S t, 

h=^ 7 K B — K 7 7 7* 

t*S 0 ztUtZoZn^tzS. 7 t:*l^i* 

Xfoko lAt: 

V= h 7 7 7M'o’7 7 7' 

X'i.So E Wi*^t:r "4 x7 4i%A,X', 
fi 7 71 S *> f 7 *>® 7 7 VXfo S „ r' 
^X7t:li r ftll|A|'7 77®^xt4 
F0^O-t7 7X'Tj ti'7 r IDj **#*• 
4xX S 0)1S o zti&m.A,X, ^7 K* f T 
ScgWct) |, 7 771 :® L 7:** E 7 *>®T 
i774lH$TS777'X'*S„ Vxhl 
X'li02 H 4'*> c, V=0X', Ti 7 7 lift-? X 4 
i'o cncoi'Xli, *tx'^si4ts„ 
<fet:n, roX'^S* 5 , w4U£2'7X'lffi 
X, 00i!~llBiX'®4o®tt!i* ? * *), X 

4i(ixr77 0 ^-h4tH^TS t®x“*S„ 


IJ X h 3 





. Z80 






.PHASE 

0DF00H 


0FF8 


CR 

EQU 

0FF8H 

;COMMAND REG. 

0FF8 


STR 

EQU 

0FF8H 

;STATUS REG. 

0FF9 


TR 

EQU 

0FF9H 

;TRACK REG. 

OFFA 


SCR 

EQU 

0FFAH 

;SECTOR REG. 

OFFB 


DR 

EQU 

0FFBH 

;DATA REG. 

OFFC 


MSDR 

EQU 

0FFCH 

;MOTOR,SIDE,DRIVE# SELECT 

DF00 

D5 

START: 

PUSH 

DE 

;SAVE DE FOR RETURN STATUS 

DFO1 

1A 


LD 

A,(DE) 

;GET COMMAND No. 

DF02 

13 


INC 

DE 


DF03 

D5 


PUSH 

DE 


DF04 

21 DF1A 


LD 

HL,JTA 

;HL=JUMP TABLE AREA 

DF07 

16 00 


LD 

D, 0 


DF09 

87 


ADD 

A, A 


DFOA 

5F 


LD 

E,A 

;DE=A*2 

DFOB 

19 


ADD 

HL, DE 


DFOC 

5E 


LD 

E,(HL) 


DFOD 

23 


INC 

HL 


DFOE 

56 


LD 

D,(HL) 

;GET JUMP ADDRESS 

DFOF 

EB 


EX 

DE, HL 

;HL=JUMP ADDRESS 

DF10 

D1 


POP 

DE 


DF11 

F3 


DI 



DF12 

CD DF19 


CALL 

PATCH 

;CALL (HL) 

DF15 

FB 

* 

El 



DF16 

D1 


POP 

DE 

;GET STRING ADDRESS 

DF17 

12 


LD 

(DE),A 

;STORE LASR STATUS 

DF18 

C9 


RET 


;RETURN TO BASIC 

DF19 

E9 

PATCH: 

JP 

(HL) 

;CALL (HL) 



; 

Jump Table Area 




; TYPE 

I 



DF1A 

DF32 

JTA: 

DW 

RSTR 

;RESTORE 

DF1C 

DF3C 


DW 

SEEK 

; SEEK 

DF1E 

DF55 


DW 

STEP 

; STEP 

DF20 

DF55 


DW 

STPIN 

;STEP IN 

DF22 

DF55 


DW 

STPOT 

;STEP OUT 



•TYPE 

II 



DF24 

DF5F 


DW 

READD 

;READ DATA 

DF26 

DF84 


DW 

WRITD 

;WRITE DATA 


;;ajsxi 







































































































x T 7 7” V- Yum-l L X h 4 r l«j 
X f) So 4-tf4/i4 {>©*>'& 4 *'t l' 7 fc, 
:nil r FDD©^y K4«J*-t£3j (:« 
I:-1 -fit* 5 * 4 *■ c> 4 ©4" (—fettt: ® 
I'FDDIi £&(.'). FDCiiFDDC K 
iii-LtSl'j ti.'7*i^4&4©4'* ? , 

£©fi^ii r :4itn (|Aj{|!ij^*.yHPJl-*‘) J 

fc r |jJltj 4*U4®4\ ) FDDli—ftc^ a 
4'**ii, FDC©li ;>7"4t-5T 

^>f>4i'fc i'lt4<.\, £©74 ? >7"4tff 
S1-4©* ? n, ro4©t'*4„ 4 i xIf ) 

X n©i 7 lln =1, ro=04tt£-f 5 t, 
FDCaFDDt:*fLT20ms (0.02#) :'t 
c r jfttlj 4 t C44„ 3>T, 

^liXl-r'iixf ->7”i'-Mi^I(:20ms X 
4 < tUt'CrtSo 
3 4 >^~=3ms 

t urbo© |Aj ;(£ = 6m s 

t4 *•' 7 4 7° (w*—04l' J P'7) =20ms 
tlotl'5, ft!li:XlFmodel20|Aj;aj© J ? 
ot*>, Cf ISli l T i' 4 

£friixC > \3.6mstSl&?o kzX 
!) X h 2 # ? r #'!) #!) 7°a 77Aj Xtb 4„ 
ff£l4xr x7V- hr', 04tf>h? 
•^0«3»i< li'HCribS. L 

7 fc 14 t W?0®ii: 4 4 *■ f> li if li if 
i: J P4;t„ te6S4Mx4«£-li “32" fc 
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•TYPE III 


DF28 

DF5F 


DW 

READI ; 

;READ ID 

DF2A 

DF5F 


DW 

REDTR ; 

| READ TRACK 

DF2C 

DF84 


DW 

WRITR ; 

;WRITE TRACK 



•TYPE 

IV 



DF2E 

DFBC 


DW 

FORI ; 

; FORCE INTERRUPT 



;MOTOR 

,SIDE.DRIVE# 


DF30 

DFC6 


DW 

MSD 

;MOTER,SIDE,DRIVE# 

DF32 

1A 

RSTR: 

LD 

A,(DE) 

;COMMAND 

DF33 

01 0FF8 


LD 

BC.CR 

;BC=COMMAND REG. 

DF36 

ED 79 


OUT 

(C ) , A 


DF38 

CD DFD2 


CALL 

WNBSY 

-.WAIT READY 

DF3B 

C9 


RET 



DF3C 

EB 

SEEK: 

EX 

DE.HL 


DF3D 

7E 


LD 

A,(HL) 

;A=COMMAND 

DF3E 

23 


INC 

HL 


DF3F 

56 


LD 

D,(HL) 

;D=TRACK# TO SEEK 

DF40 

23 


INC 

HL 


DF41 

5E 


LD 

E,(HL) 

;E=CURREND TRACK# 

DF4 2 

01 0FF9 


LD 

BC.TR 


DF4 5 

ED 59 


OUT 

(C),E 

;SET CURREND TRACK# 

DF4 7 

01 0FFB 


LD 

BC.DR 


DF4A 

ED 51 


OUT 

(C) ,D 

;SET TRACK TO SEEK 

DF4C 

01 0FF8 


LD 

BC.CR 

. 

DF4F 

ED 79 


OUT 

(C) .A 

;SEND SEEK COMMAND 

DF51 

CD DFD2 


CALL 

WNBSY 

;WAIT ’NOT BUSY’ 

DF54 

C9 


RET 



DF55 


STEP: 




DF55 


STPIN: 




DF55 

1A 

STPOT: 

LD 

A, (DE) 

;GET COMMAND 

DF56 

01 0FF8 


LD 

BC.CR 


DF59 

ED 79 


OUT 

(C) .A 


DF5B 

CD DFD2 


CALL 

WNBSY 


DF5E 

C9 


RET 



DF5F 


READD: 




DF5F 


READI: 




DF5F 

CD DFEA 

REDTR: 

CALL 

SETSCT 

;A=COMMAND,SET SECTOR REG 

DF62 

01 0FF8 


LD 

BC.CR 

;CR=STR 

DF65 

D9 


EXX 



DF66 

01 0FFB 


LD 

BC.DR 

;BC’=DATA REG. 

DF69 

2A DFFE 


LD 

HL.(BUFAD) ;HL’=BUFF ADD. 

DF6C 

D9 


EXX 



DF6D 

ED 79 


OUT 

(C) ,A 

;SET COMMAND 

DF6F 

CD DFE4 


CALL 

WAIT1 

;STRANGE ? 

DF7 2 

ED 78 

RED1: 

IN 

A, (C) 

;GET STATUS 

DF7 4 

OF 


RRCA 


;CHECK BUSY 

DF7 5 

30 0B 


JR 

NC.RED2 

; END READ 

DF77 

OF 


RRCA 


;CHECK DATA REQUEST 

DF7 8 

30 F8 


JR 

NC.RED1 

;NO REQUEST 

DF7A 

D9 

* 

EXX 



DF7B 

ED 78 


IN 

A, (C) 

;GET DATA 

DF7D 

77 


LD 

(HL),A 

;STORE DATA 

DF7E 

23 


INC 

HL 

;INC. BUFF. ADD. 

DF7F 

D9 


EXX 



DF80 

18 FO 


JR 

RED1 

;AGAIN 

DF82 

07 

RED2: 

RLCA 

;BACK STAT (RRCA <-> RLCA) 

DF83 

C9 


RET 



DF84 


WRITD: 




DF84 

CD DFEA 

WRITR: 

CALL 

SETSCT 

;A=COMMAND,SET SECTOR REG. 

DF87 

01 0FF8 


LD 

BC.CR 

;CR=STR 

DF8A 

D9 


EXX 



DF8B 

01 OFFB 


LD 

BC.DR 

;BC’=DATA REG. 

DF8E 

2A DFFE 


LD 

HL.(BUFAD) ;HL’=BUFF ADD. 

DF91 

D9 


EXX 



DF92 

IE 00 


LD 

E.OOH 

;COUNTER 

DF94 

16 02 


LD 

D.02H 

; MASK 

DF96 

ED 79 


OUT 

(C) .A 

;SET COMMAND 

DF98 

ED 78 

FLOOP: 

IN 

A, (C) 

;FIRST LOOP 

DF9A 

A2 


AND 

D 


DF9B 

C2 DFA4 


JP 

NZ,FIRST 

;FIRST DATA REQ. 

DF9E 

ID 


DEC 

E 

;DEC. COUNTER 

DF9F 

C2 DF98 


JP 

NZ,FLOOP 

;AGAIN 

DFA2 

18 06 


JR 

WRT1 

;QUIT FIRST LOOP 

DFA4 

D9 

FIRST: 

EXX 



DFA5 

7E 


LD 

A,(HL) 

;GET FIRST DATA 

DFA6 

ED 79 


OUT 

(C) ,A 

;WRITE 1 BYTE 

DFA8 

23 


INC 

HL 

;INC. BUFF. ADD. 

DFA9 

D9 


EXX 



DFAA 

ED 78 

WRT1 : 

IN 

A, (C) 

;GET STATUS 

DFAC 

OF 


RRCA 


;CHECK BUSY 

DFAD 

30 OB 


JR 

NC.WRT2 

;END WRITE 

DFAF 

OF 


RRCA 


;CHECK DATA REQUEST 

DFB0 

30 F8 


JR 

NC.WRT1 

;NO REQUEST 

DFB2 

D9 

* 

EXX 



DFB3 

7E 


LD 

A,(HL) 

;GET DATA 
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(-11)< ti'KtrtJ. t4*-t>, FDC 
It r M@tl-i)b' 4 J'lnjj 4fXl# L T i* 5 £ 


TYPE I -E'W* s 4*‘-7 

4A ? , TYPEn-rttS-r**«:t ? 4 

i'o Kt*. y x h 3 1 y x h 4r*s. 
fyijt: J: 7.-C y x h 3 liHMa&7°n 7"7 act) 
7-b>74ny X h, y x h 4 (i^n^BAS 
IC*'lifsE? 4»©7°a 7"x A-T* So BA 




U X M 


100 CLEAR &HDF00 
110 MEMS(AHDF00,16)=HEXCHR${"D5 1A 13 D5 
120 MEM$(&HDF10,16)=HEXCHR$C'D1 F3 
130 MEM$(&HDF20,16)=HEXCHR$("55 DF 
140 MEM$(AHDF30, 16 )=HEXCHR$("C6 DF 
150 MEM$(&HDF40,16)=HEXCHR$("23 5E 
160 MEM$ ( &HDF50,16 ) =HEXCHR$ ( "79 CD 
170 MEM$ (&HDF60,16 ) =HEXCHR$ ( "EA DF 
180 MEMS(&HDF70,16)=HEXCHR$("E4 DF 
190 MEM$ (&HDF80,16) =HEXCHR$ (“18 F0 
200 MEM$(&HDF90,16)=HEXCHR3("DF D9 
210 MEM$(&HDFA0,16)=HEXCHR$("98 DF 
220 MEM$(&HDFB0,16)=HEXCHRS("30 F8 
230 MEMS (&HDFC0,16 ) =HEXCHR$ ( "ED 79 
240 MEM$ (&HDFD0,16) =HEXCHR$ ( "DF C9 
250 MENS{&HDFE0,16)=HEXCHR$("F6 79 
260 MEMS(4HDFF0,16)=HEXCHR$("OF ED 
270 DEFUSR0=&HDF00 
280 D$ =USR0(CHRS(11,&H81)) 

290 D$ =USR0(CHRS(0 , &H2)) 

300 DS=USR0(CHRS(1,&H1E,2,0)) 

310 ' D$=USR0 (CHRS ( 2 , &H3A) ) 

320 ’D$=USR0(CHRS(3,&H5A)) 

330 ’ DS=USR0(CHRS(4,&H7A)) 

340 D$=USR0 (CHRS ( 5 , &H80,1 ) ) 

350 ’D$=USR0(CHR$(6,&HA0, 1 ) ) 

360 ’D$=USR0(CHR$(7,&HC0,1)) 

370 ’ D$=USR0 (CHRS ( 8 , &.HE0,1) ) 

380 ’D$=USR0(CHR$(9,&HF0,1)) 

390 * D$=USR0(CHR$(10,&HD0)) 

400 D$=USR0(CHR$(11,&H1)) 

410 END 


21 

1A 

DF 

16 

00 

87 

5F 

19 

5E 

23 

56 

EB" ) 

DF 

FB 

D1 

12 

C9 

E9 

32 

DF 

3C 

DF 

55 

DF" ) 

5F 

DF 

84 

DF 

5F 

DF 

5F 

DF 

84 

DF 

BC 

DF" ) 

F8 

OF 

ED 

79 

CD 

D2 

DF 

C9 

EB 

7E 

23 

56" ) 

OF 

ED 

59 

01 

FB 

OF 

ED 

51 

0 1 

F8 

OF 

ED" ) 

C9 

1A 

01 

F8 

OF 

ED 

79 

CD 

D2 

DF 

C9 

CD" ) 

OF 

D9 

01 

FB 

OF 

2A 

FE 

DF 

D9 

ED 

79 

CD" ) 

OF 

30 

0B 

OF 

30 

F8 

D9 

ED 

78 

77 

23 

D9 " ) 

CD 

EA 

DF 

01 

F8 

OF 

D9 

01 

FB 

OF 

2A 

FE" ) 

16 

02 

ED 

7 9 

ED 

78 

A2 

C 2 

A4 

DF 

ID 

C2" ) 

D9 

7E 

F.D 

79 

23 

D9 

ED 

78 

OF 

30 

0B 

OF" ) 

ED 

79 

23 

D9 

18 

F0 

07 

C9 

1A 

01 

F8 

OF" ) 

DF 

C9 

1A 

01 

FC 

OF 

ED 

79 

B7 

F0 

CD 

D2 " ) 

20 

10 

FE 

01 

F8 

OF 

ED 

78 

4F 

E6 

81 

20") 

3E 

0 7 

3D 

20 

FD 

C9 

EB 

7E 

23 

56 

01 

FA") 

CD 

D2 

DF 

FI 

C9 

00 

00 

00 

00 

00 

00 

E0" ) 


CD 19 
55 DF 
1A 01 
01 F9 
D2 DF 
01 F8 
ED 78 
07 C9 
IE 00 
18 06 
D9 7E 
CD D2 
C5 06 
Cl C9 
51 F5 

'MOTOR ON 
'RESTORE 
'SEEK 
’STEP 
'STEP IN 
'STEP OUT 
'READ DATA 
’WRITE DATA 
’READ ADD. 
’READ TRACK 
’WRITE TRACK 
’FORCE INT. 
’MOTOR OFF 


DFB4 

ED 79 


DFB6 

23 


DFB7 

D9 


DFB8 

18 FO 


DFBA 

07 

WRT2 : 

DFBB 

C9 


DFBC 

1A 

FORI: 

DFBD 

01 0FF8 


DFCO 

ED 79 


DFC2 

CD DFD2 


DFC5 

C9 


DFC6 

1A 

MSD: 

DFC7 

01 OFFC 


DFCA 

ED 79 


DFCC 

B7 


DFCD 

FO 


DFCE 

CD DFD2 


DFD1 

C9 


DFD2 

C5 

WNBSY: 

DFD3 

06 20 


DFD5 

10 FE 

WNBSYO 

DFD7 

01 0FF8 

WNBSY1 

DFDA 

ED 78 


DFDC 

4F 


DFDD 

E6 81 


DFDF 

20 F6 


DFE1 

79 


DFE2 

Cl 


DFE3 

C9 


DFE4 

3E 07 

WAIT1: 

DFE6 

3D 

WAIT2: 

DFE7 

20 FD 


DFE9 

C9 


DFEA 

EB 

SETSCT 

DFEB 

7E 


DFEC 

23 


DFED 

56 


DFEE 

01 OFFA 


DFF1 

ED 51 


DFF3 

F5 


DFF4 

CD DFD2 


DFF7 

FI 


DFF8 

C9 


DFF9 

00 00 00 00 

’ 

DFFD 

00 


DFFE 

E000 

BUFAD: 


OUT 

( C ) , A 

;WRITE DATA 

INC 

EXX 

HL 

; INC. BUFF ADD. 

JR 

WRT1 

-.AGAIN 

RLCA 

RET 

;BACK STAT (RRCA <-> RLCA) 

LD 

A,(DE) 

;GET COMMAND 

LD 

BC, CR 


OUT 

(C) ,A 


CALL 

RET 

WNBSY 


LD 

A,(DE) 

;GET DATA 

LD 

BC,MSDR 


OUT 

(C) t A 

;SET IT 

OR 

A 

;MOTOR ON? 

RET 

P 

;MOTOR OFF THEN RE 

CALL 

RET 

WNBSY 

;WAIT READY 

PUSH 

BC 

;SAVE BC 

LD 

B, 20H 


DJNZ 

WNBSYO 

; WAIT 

LD 

BC,STR 

;DASAI 

IN 

A, (C) 


LD 

C, A 

;SAVE STATUS 

AND 

8 1H 

;CHECK 

JR 

NZ,WNBSY1 

LD 

A, C 

;GET STATUS 

POP 

RET 

BC 

;GET BC 

LD 

A,7 

;WAIT ROUTINE 

DEC 

A 


JR 

RET 

NZ.WAIT2 


EX 

DE, HL 


LD 

A,(HL) 

;A=COMMAND 

INC 

HL 


LD 

D,(HL) 

;D=SECTOR# 

LD 

BC,SCR 

;BC=SECTOR REG. 

OUT 

(C) ,D 

;SET SECTOR# 

PUSH 

AF 

;SAVE COMMAND 

CALL 

WNBSY 


POP 

RET 

AF 

;GET COMMAND 

DB 

o 

o 

o 

o 

0 ;DUMMY 

DW 

END 

0E000H 

;BUFFER ADDRESS 
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(y-F'h7 77) ft 5 (M x h 4 roffii'*) 


© 3 S'iS'n'-'W —T - 
7-f £ So SSL 
i'Zt CZftG3o 
0)jv-3-y\r%,± 

i:|5]L'4©T'*So 
£©*££, READ 
I, REDTRT'fi, 

■fc 7 7 #^f44!a3E 
t SiftSa^i'© 

CfgtLti'So 

3^9(44 i.'*'G, 

Aifc^o 4 t* r CALL SET SCTj TA f: 
3-77 If, 4 ft*'0-fc 7 7 7 v 1 ' 
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h7-^ 

6 

// 

■fe? ^ No. 

- 
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’RESTORE 
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’READ DATA 

310 

* D6$=USR0(CHR$(6,&HA0,1)) : 

’WRITE 

DATA 

320 

D$ =USR0(CHR$(11,&H1)) : 

’MOTOR 

OFF 

325 

PRINTASC(D0$) ,ASC(D5 $),ASC(D6$) 
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END 
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FLAG...S=0,C=1 



280 

D$=USR0(CHR$(11,&H81)) : 

’MOTOR 

ON 

290 

D0$=USR0(CHR$(0,&H2)) : 

’RESTORE 

300 

D5$=USR0(CHR$(5,&H82,1)) : 

’READ DATA 

310 

*D6$=USR0(CHR$(6,&HA0,1)) : 

’WRITE 

DATA 

320 

D$=USR0(CHR$(11,&H1)) : 

’MOTOR 

OFF 

325 

PRINTASC(D0$),ASC(D5 $),ASC(D6$) 
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END 
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300 
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310 
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’WRITE 

DATA 

320 
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’MOTOR 

OFF 

325 

PRINTASC(D0$),ASC(D5$),ASC(D6$) 



330 

END 
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aO FLAG 



280 

D$=USR0(CHR$(11,&H81)) : 

’MOTOR 

ON 

290 

D0$=USR0(CHR$(0,&H2)) : 

’RESTORE 

300 

D6$=USR0 (CHR$ ( 6 , &.HA1 , 1) ) : 

'WRITE 

DATA 

310 

D5$=USR0 ( CHR$ ( 5 , &.H80,1 ) ) : 

’READ DATA 

320 

D$=USR0(CHR$(11,&H1)) : 

’MOTOR 

OFF 

325 

PRINTASC(D0$),ASC(D5$),ASC(D6$) 



330 

END 



4 

32 0 
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t :A 4<ai!(c4 a — K'©f±# i:?f "3 x 7 
imnSAt'pJii'AtSSbol)-. 
H^lflijF.L <«i.'4 L i ?. K.S. 


H HOGEN 
^?3O0 <^31OLBS 

TIGERMflN S. HANSON 
^240LBS ^300LBS 


TIGEAMAN S. HANSON 


A BUCHIE A. GIANTS 
” 310LBS <^590LBS 


FALL 

BACK DROP 
PILE DRIVER 
KNEE DROP 
BODY SLUM 
ELBOW DROP 
DROP KICK 
BRAIN BUSTER 
HIGH KICK 


M.K. 


IrHffilig 


T.K. 





◄ 

◄ 

◄ 

< 

m ft tt 

► 

► 

► 

► 






◄ 

◄ 

◄ 

◄ 

◄ 

4"j 9 

► 

► 

► 

► 

► 






◄ 

◄ 

◄ 

◄ 

yy> k 

► 

► 

► 

► 






◄ 

◄ 

◄ 

◄ 

◄ 

7Tf7 

► 

► 

► 

► 




◄ 

◄ 

◄ 

◄ 

◄ 

◄ 

◄ 

» + * 

► 

► 

► 

► 

► 




MZ-2000/2200/2500ffl 

T : 4,800R 

XI/XI turboffl 

5 D : 6,800R 

■ 

T : 4,800R 


0011(561)1370 



T.S. IWSg K.S. 



◄ 

◄ 

◄ 

◄ 

◄ 

◄ 

ft ft 14 

► 

► 

► 

► 







◄ 

◄ 

◄ 

◄ 

*77 4V1 

► 

► 

► 

► 

► 







◄ 

◄ 

◄ 

v-*y> k 

► 

► 

► 







◄ 

◄ 

◄ 

◄ 

◄ 

7 <-f7 

► 

► 

► 

► 

► 

► 



◄ 

◄ 

◄ 

◄ 

◄ 

◄ 

+ & 

► 

► 

► 

► 

► 




XI/XI turboffi 5D!5,800R 


» T : 4,800R 

X - -y ? 7. S03(366)4345 
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SPECIAL REVIEW 

EPSOIJSi XI turbo a— 


- ©EPSIJlH * 4 t XI turbo ffl © - * 7 Ttt ZtLt--%.mX'%>Vt 4- 

EP^'sm-C-fo L A't, 24 V y 

b Sfllfl(*XX £ tlX EPfflT' X©?ft7j: y 7htto 


V (24 F'7 F© 6 ©) 
b7>>4 IfCAOn < U^X% £ ItZo 
It'l, 8 F*y F©7°y i>4 

Ztitfzo) r EPJ&JX 
5?j 4-^7 LHt 8 K-> F©xy y^-cx 
24 F" -7 F ©B)l§flf*XX* t EP»|'t'S> 4 X 7 U 

b'hbh., 

16 F' 5- F © 7 °y y fix’b X I i 17>‘ £> IJ t 
A- £■ * Ii Ifl> 5 7° y V X * ? 24 K -7 F ©iltX'X 

y y* tiB]cc &4 ti '7 c t-rto 
fxxx* 5 EP@i-r't> 4 11' 7 c t Artt-r<, 
7v?-vA's, iftK, IWXX, 

4^^£ixx(>EPX-f *, ^a#*^ 
7H4©EPX(> 4 4‘ IT L i 7 (t^tOT - 
y y^T'^Ttg) 11 .' 5-fwi'y 7 FT't 0 
ST, :0V7 Hi a- *7 (M'M7 y 
i4 F tiia7-7°n y 7 F) tT'^iS L 7zX 
*^ep»)i- 4 ti'7 tort. la-* ? o-c 
X#© ft® I: li g - * y 7X£gft „ 

i-41'5 U Z 4 7°©XX©4e$lt: *--* 7 
©X¥FFWLfti'Jt. SSfSfcfcEPXfcl 
fci'X^JOHin;_(ryx*-'-?-) tn 

EP$-y-yy;U (7'7if-M-10241Sffl) 


mm- (Xft) 

Ut. ziiximi fcX*«rWf<:df 
fXtfth 1 t EPXt 4 1> i if t„ 


mm&mmm® 


24k y f ©wwtf gmtPXf t> 4 t 
i'7 : t©l**M:JW*W«c«MB**lff& 
i L <t 7o 

amfXXX: XXfcffacfiilT (fc#ii 
2 il 6) EPXt4„ 

b) $8*‘UXX: XXci3(i®i3*‘il t 2 FI 
*©11X7 4 yfrEPXf S 4 0 

c) 3£i3XX : XX©iMS7±< EPXt 4„ 
<d;x$kXX : XX©gs^flx^E^-t4 0 
e«ixt: X**3gMSuiR< EPXt 4, 

f) *7-EPX : *7—7°y y *©!§£•(: 7 
fe©*7-EPX* ? f |i 4„ 

g) SIS ft • 4fSft : XX$r<ft3riSju 2f£i: 

Lit. «fcfSft4&tf4Bt4*„ 

h) ^Mg5c(f : It t It 4"7 4 tf 4 0 
\)%mx : %FfeScfft 4. 

Cfjfflo 



fc I'-ofcJ: 7 4ggi(cEP^* ? fti4IJ*>i: 
4 ft <i ©«»©*&*•&•*>•«■ (72 t A If, 4 
fgfA-riWf*^*- L-C*5*»»t4r-r4) 6"TS£ 
ft. 

72/4, Oto(7)tt^5ftt^t JOUift 
Xf (M2o) <Dt%pfi& U© 

f, 1 FT©xxa* s x©«-«7T 11 7 1 

i.' 7 a***# y i to 


?U>?a9ai:*?*9l 


4 4 t i:Jn x. TEPUt 4 
t S b fsTt, *#wi: Ft, EP^ 
^r&i (*-«),^-^EP^ mtbt'fA 
i ftQXt- a, xx • friB, c ,seatT 

i' ©r^ i ! ( fAito i A*, 7>X-7 4 
7!i,127M-M©ffl4.'g-6t* s S^^ t (A* 
74L, l @©EP8i]i:li l ii *>)„ {> EPX 

4’Pfltet4 t 4 4 i fcT 14 UAi^- 

i-r. 

7FX!4 512S^* f ^ii$n-a'T^®b 
ts^to •ftEK0 i r"4^i4#st:^yjTr' 
24 F*-7 F©74> F F*i:^nit, li*> 
©XX© 7 4- > F 172 y, —g|55- 

4-li'J' L 7: y, mi • ®$i4 f fc ft* I to 

£ 72, EPJMIJf TtW L 72XFXOff^©30 
x*a— *9i:«sa-rsit (j—*7© 

j-t" 4 i'* ? .)„ 

ti:*><, ;lo72EPX* ? t'|! 4©-r'Ac 
4X^®EPXl-li*Mfto ^7X@ 
PBf-t-®E1 S?t t'cffifiJt* 
to EPXi£J£!iiIi'©t'A:l©EPX<:!ilfi] 
i.'ti' £it/vt\ EP@i|©'^L 
4 y 7 F t to (north fox) 

r EP©|X^j(Xl turboffl, ^^--*7) 
5D2fe (7-i7Mt) 14,000F) 

T-!)7 S03 (457)7479 


t sjsstm ©A©^©ax &£ur»ff-c-££t» 

, mmmm, , M? <zrt& 


7 ^ A.0 H>|i-Jt-i 

*/s, ^ga^^tarsfc«w^2/3 attrfeT-ie^t. 


X 2 +2X . F-4 _ XCXH-2) ,, (3X+4XX-2) _JL r f L-r~)~t -r.*** 
3X 2 +7X+4 ’ 3X 2 -2X-8 _ (3X+4XX+1) (X+2XX-2) “X+l 


il'Xfe 1/7?) yi?)^ f) ^fo 


•-AMPM 


140 Oh!MZ 1986.1. 
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ftiil/O#-P, FM^2gtf-K(4 fc t 
LIL fci'? 4-EttMZ/XI 4* 7 7*x 
7 Ittii FM®;147 

ZZXUt Wo t 
v/\<7)YM-2203, YM-30144Str5 2:L'-5 
A 0 (Si£l4ffit&(4;£(I( ?)X't4b, Xrt. 

s tz, states 
tcA‘)lc< L'tL'T Afcfc ‘J*Af 1-fe-yP 
4'(tX't>BIA LiLiio FMgS#- K £ 
SSfFtii:#, ICV4y P(4t-<X®!>)ftl4 
fcUT, 

4**i' 0 *>t — HOi'J'r'j PttfcltXfcltlf 
jcv.'(7)-rto 3*n^4x*X't4i!Sbt-fc4 
tJit. 4fc, 

ffi-5 t#(iS?p D n ieaia*?ijt;YM- 2203,3014 

LFO( 147^—£>#$?) (4 
($x4-ti-A4', (SA'ttiE^lciii# 3 r„ 

• Lisp APIti I'L'o g*7)S-0S<DLisp % fj 
KtitZ r Z AXjrSJBro'ftfltCfaA'l'l'Z t 
h^cnti^nt-A cioTi'4. APiSrili; 
fct/C^tffgfrftT < SSl4t*„ 

a a m (14) xics 

Lo*‘OMAt'<a^LA:ii, Lisp_t<Dffi 
t-s-'s 

AX <4*5 l'o C<D(iX'f3:tLTi.'?‘4’ 
i't © I' 4 to 

• *A£ LT«»i£tL^LTB^4'3>f^- 
t&tSi: LX<Dit£itA,Xl'44#4L't,g 
oti'So T>i'X(4*iixx2Wfg7tU 
4 —7 a >£ LT Forth, Pascal, PL/I 4 £'CD 

SiRtiS&ftiiMTL, ? p>i:/\— KtxTlco 

L'X fc ifA^AittoXfi Ll'o 

a a is (17) mz- 700, Mz-2200 

• ft4ioit->2ii3:«ML-x> (»*M'Sj& 
*) Lill)'l'S,&Sf/' , y4-y4flFoT< 
4'<* l'o Lisp, Prolog, Forth4£r4g&3!X* 
**t>i'>4L'4tf>C: ! 

M+g =£ 0 ] (17) MZ- 1500 
t 0^if«iaSf!>iH't,Ei'4t 
4, C ft4£*l L 72 c, is {, L h k 7 -Ct 
to. r-^« r S-OS«Slii:i?i)jtft 
jSSHT *! jo si*'W L 4 *A4 ? 

• ZEDA£»Bffi*lJlLtet>-l+T t, ^ -o T l' 41„ 
gfAt'PoXl'iLCT-Lj;)*', XCDgtj 
r Z80 ASSEMBLER — j 

L'K-oXjC •y-tr-i>££xT<fr4 Lt„ X<7) 
tgiz.i.t, *<D£>4t) L'C4x 

(4#ifcLAL'X£:4x#-5<7>x(4£:,fa', i' 
Ai'A»#rLX*4i(6m, I*i:ML4L 
fc®XSSUt. 

4t r Z80 ASSEMBLER ~j <7)7 -y-tz —7(4 
l558fi-<Dt::AX-B*LXL'4t (gi?A.- 
#LT-L± 7h.)oZtl*‘PSb$itZiZlt r CALL 
SPRNTj fc r JP 3D52 hj C^AIt. 

44, Z80(7)v->>a—K14S*T*4/\'t 
Ktfr(), 7/WK>*^x7IJSi 
t5<7)(4*tk4<fc tC©L'4To 

t5(C(4l545}r£*5&xtll4 OKT-to 

r IF A< >0 THEN LD B, 3 ELSE LD B, 7 j <7) 
r LD B,3j(4A//X7-fe>77UL4i: #, r LD 
B, 7 J (4A/X7-fe>7’7UL4£: # IZ 
5Ttyx2l'fflA'-n'#Tt. Lft?:4l: 


tn«4/\--f Hii:4U4t. 

3 tUL-g-iol+T^T#-^^ V — XCD^TF-SB 

fotu-'-rEjLS Li ttic«l505fi-c¥ 
^rTmtSto M/X-T-b>-f)\,Ltzt #C(4 
r LD B, I5j tffai:(£'J,A/ffl£ # C« r LD 
B, 28j 4*'$SC4 *) 4 to 4 /\*-f P<7)t7'7 
x2hiii:T5 4%, 4X3+6X* r LD 
B, I8j, 5/\'-f P4 l o 5 X 3 + 6 X r LD B, 21 j 

-f') >?x-'<-7>t't5<D£.ihtf>-&(::l4, 
I558fr£ r JP 3D58 hj C^A, £f>lZI573fr 
£ r JP 3D62 hj Ct*l(4X-££>4 U T‘to 
fflji; LT, A//Tttyx2^«Ath 
Rjjxtztf)?4ln 0 09B# 
tz r Z80 — j mx -y-tr-'t77 
7'<Dl*tg(48e LX4i# 4 to &43LfcSfli L 

Tl'57t-7'> PT-to 

I558fr -► JP 3D52 h 
I545Pt — IF A< >0 THEN LD B, 4 
ELSE LD B, 7 

I505fx -» IF A< >0 THEN LD B, 18 
ELSE LD B, 28 

Tt7i7 P ^§11454%, 

3DOF CD 22 38 ->■ C3 52 3D 

3CF7 06 03 -r 06 04 
3C90 06 OF -» 06 12 
fc4U 4 to g?A-fcS3-<D#A(ZfSi;X7 
*-7y P ££AXAX(4l'44TL i To 
BSS (18) MZ-2000 

©5A<D®F3E4£S£fc#4>LXfc'*> it, 

• fcSIl'o t)T— )tS-OS“MACE” (7)41*6! 
(1(4 6 E-§-4tij4li|BfC(4S-0S"MACE''cT)a 
51t4t>4oXL'4-ti-AT*L7co L4L, 7, 
8, 9fl-§-£::AXCS-OSJiX^-&7 P Pt'7A 

r T ocnBl'l'tnj-yAPcj 
dotfcjjtngl), “MACE" 5-HoTL 
4 L' (7) x-a <77 V -> V X- (4 ^ A) 44 tl 4 L' (7) 4 o 
6 ^■§-<7)/\'-ytt>7\*-(J#JS(zfc4<, a 

Afctso-i: 1) i: LX^-oXL'4-ti-Ao 6 fl-t 
$-*oXL'4<.'«Ct>S-OS$- ! 

US (15) XlCs 
141'4 I' 4 @$ A*- <i 9 k fc 
t C^'°7-r -y7°L4 S-OS ©'*— i^a 
^ry7“i^ML4t. WHfLXi'T 

< Ki l'o 

• S-OSffl (CA. C.T.S.(727) 5-fT^.Ti;® 
^44*74X4®x4L'<75XBr^L4o L 


CIOSPiKIS* 

■85^6 

iflm #feii(t<7)IS»!* 

* I S5 S-OS“MASE” 

*2 35 Lisp-85-P >t 7°') t 
*3 35 fx -y 71A 7" P 7'X A 
■85#- 7 ^ ■^■ 

*4 35 7->>iSy n t'XAP»1%AP1 
*5 35 xx-f 7 7’4r>7'XZEDA 
*6 35 x' \* -y +' > 7' 7 — 7LZ AID 
■85^8 

* 7 35 4-ABfl*j4y4-'7BEMS 

*8 35 y-X-yx t U-7ZING 
■85^ 9 ■§■ 

t>7 77‘P S-0S#)tite 

* 9 35 7 v > g A * 7—Jl/M ACINTO - S 

1^1035 Lisp - 85 A PI (I) 

■85^10^^- 

*1135 ®i®7-> 7CAP-X85 
mm Lisp-85 API (2) 

B85*llfl# 
mm Lisp-85AP1(3) 

■85^ 1 2fi-% 

*1235 Prolog-85 

* Lisp -85, ZEDA, ZAID, BEMS, ZING, MACINTO 

-S, CAP-X85, Prolog-85, FM^iS+P 7 > P'x 
r'-f 7 U Z<7>7 7'JX-va >7 p7tA 
14, < y/yPPA X'h’b 

S-OS“MACE” (85*6 fi %) 44 L 't *HT L 
4 4+A<7)X--;±*< 4<H'o 4fc. 2 fl# 
4x-r 7 7KS?--i-tv\-—7a >7'y7KK£ 
HttiftT-tfflt, 

CtfcX# 4 to 


444 < Xl*ffl<7)A. C. T. S.SrflFS X t CL4„ 
$X, A. C. T. S. tltttTli T ? 

(17) XICk 

ACT-oTA-oX64<i777374'- 
A*>f5J*>XL 4 7*‘o )zZhX\ S-OS 
CD t<— i/ 3 > 7 -y 7°B5X'I41 7 * t 61 
t— p L 4 to 5 4>, 

-o4X*Li ) ? 
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IJ □ 7 - 7 7'A'ft v •> >f§ A * *y 

-JUMACINTO-SGO^KlUiK, 7 d t* 

1 1 n JU- >v 

II h /T\+^SX 

5A£g*ftT KU-XCBX fct'O 

U PT“> 

yibWobifi 

U\ tz< $ A, 

t^-ttbtiTi'ito 4-Hl 

L i L i 7 „ 


ALLOCATER 


Hikita Takashi 

mm # 


85^9 fl^CMACINTO-S 1(' 7 U'-A' 
T to *), 

T* 9 I LL% nW&li, 

fiiH-¥?fA#xTi.'^7 0 n^7A4’C>oiJf*) 

tfiL, OhlMZ-* *.? ^t/.7’n/5 

A&fti) t l/Jo £ 

n* 5 '^ia]©ray-^-r'-fo ;07a^- 
S-OSfflcOOhlMZf-i-;'tt 
^/p/7Aii!, y n '7 

A D fc I' 5 .*> ItT'to 

it, 0h!MZfi7>ti/B/7A^ 

a-F'Li to 

• B000H~C7)t'i -7 

AF78h X >) y X H-A© t i? 9 Ct'>7° 
y X h L,AF78H~BlFF H tiiS4‘ 


77 4 A'^t'-t — t'L i to 

• 3OOO H ~0ti -7 

y X M-A£2F78 hJ: 9 A* LA* t,2 F 
7Dii<7)AFh£2FhL3c:!L L, 2F78h~31FFh 
lf-t-7'L i to 

4f&fc#j&Un-FL-C, 

fciejjjjjt i to 

<iti;> 

macinto-s Lmis-y-r>'^mmi'c 

ittof, ^2®ii(:iF80H*>ii 2^<M h 
* ? E1 h, E9h t X l' ft ttmf l' tt i t A o 

It ^P^AOfBUIl 

C©7°b^" 7 -Mi, liA'CDT F^xcftj 
*'t t£P$££fttft*5£JElfttlftliV 
tifti't'— fill, ?—•/»*% ISU«*7 

Lcot'to 


t —tV i: !£'■? -7* £ 1T S {0j»/r# 5 'tfW 
ItLTAoti'lt. 
ffl'M Htti’5*^-rt. :07-Z’ 
7f S? g'tt'fF 9 TSIZE^fiT^nif, ii 

t A t'^/n t't u li y a-y— frfA/iztt 

9 it. 

ftft'U <kr-'?y1-kthX b 
7 Fwx*-'FF h liptf* 5 *sif-g-ii 
7*a yfli-tt- h Lti'itA. 


i)3H-A ALLOCATER 7* V 7'JX|- 


AF78 

CD 

80 

IF 

01 

7B 

AF 

54 

5D 

48 

AF80 

23 

73 

23 

72 

21 

85 

00 

19 

EA 

AF8B 

E5 

21 

00 

00 

39 

EB 

F9 

21 

44 

AF9G 

3E 

00 

39 

73 

23 

72 

21 

00 

A0 

AF98 

00 

39 

AF 

ED 

42 

44 

4D 

11 

B9 

AFA0 

85 

00 

21 

41 

00 

39 

EB 

39 

44 

AFA8 

F9 

1A 

B7 

28 

0B 

13 

26 

00 

36 

AFB0 

6F 

39 

F9 

El 

09 

E5 

18 

FI 

79 

AFB8 

31 

00 

00 

C9 

02 

03 

05 

06 

0A 

AFC0 

04 

03 

03 

05 

06 

03 

04 

08 

24 

AFC8 

05 

03 

06 

04 

08 

16 

03 

04 

37 

AFD0 

05 

0A 

06 

04 

0B 

05 

03 

03 

2F 

AFD8 

03 

03 

03 

03 

07 

0C 

03 

05 

27 

AFE0 

05 

03 

03 

03 

03 

03 

04 

03 

IB 

AFE8 

04 

04 

06 

03 

09 

0A 

13 

06 

3D 

AFF0 

03 

03 

0A 

06 

03 

08 

06 

03 

2A 

SUM: 

4E 

BD 

20 

02 

7F 

48 

13 

F8 : 

: FF 

AFF8 

08 

20 

03 

51 

03 

03 

03 

00 : 

: 85 

SUM: 

08 

20 

03 

51 

03 

03 

03 

00 : 

: 85 


U X n-B ALLOCATERV-3'JXh 


0008 


1 

J 




AF 8 D 

EB 



40 

EX 

DE, HL 

{ HL—PC,DE—SP 

□see 


2 

; *** 

ALLOCATER V.3-1 t** 


AF 8 E 

F9 



41 

LD 

SP, HL 

5 SP-PC 

0000 


3 

$ 




AF 8 F 

21 

3E 

00 

42 

LD 

HL,SAVSP-PC 


□Boo 


4 

; 

BY 

T.HIKITA 


AF92 

39 



43 

ADD 

HL, SP 

1 HL-SAVSP 

□000 


5 





AF93 

73 



44 

LD 

< HL) , E 

} SAVE SP IN (SAVSP) 

00 B 0 


6 

GETPC: 

ECU 

1F80H 5 

POP HL,JP <HL> 

AF94 

23 



45 

INC 

HL 


0000 


7 

EOT: 

EQU 

0 t 

END MARK 

AF95 

72 



46 

LD 

(HL),D 


0000 


8 

PRGST: 

EQU 

QB000H } 

PRGST 

AF96 




47 




0000 


9 

ALSIZ: 

EQU 

0044H 5 

ALLOCATER SIZE 

AF96 




48 

: ++♦ CALCULATE LOAD OFFSET 

++■*• 

0000 


10 

TSIZEs 

EQU 

0044H ; 

TABLE SIZE 

AF96 




49 




□000 


11 

START: 

EQU 

PRGST-TSIZE-ALSIZ 

AF96 

21 

80 

00 

5B 

LD 

HL, 0 

j INIT HL 

0000 


12 





AF99 

39 



51 

ADD 

HL, SP 

j HL-PC 

AF78 


13 


QRG 

START 


AF9A 

AF 



52 

XOR 

A 


AF78 


14 





AF9B 

ED 

42 


53 

SBC 

HL, BC 

; HL-BIAS 

AF78 


15 

5 -*- ++ 

GET PRGRAM COUNTER +++ 


AF9D 

44 



54 

LD 

B, H 

; BC-BIAS 

AF78 


16 





AF9E 

4D 



55 

LD 

C,L 


AF78 CD 80 

IF 

17 


CALL 

GETPC 


AF9F 




56 




AF7B 


18 





AF9F 




57 

« +++ SET REGISTERS +++ 


AF7B 01 7B 

AF 

19 

PC: 

LD 

BC, PC 


AF9F 




58 




AF7E 54 


20 


LD 

D,H ; 

DE-PC 

AF9F 

11 

85 

00 

59 

LD 

DE,PRGST-PC 


AF7F 5D 


21 


LD 

E, L 


AFA2 

21 

41 

00 

60 

LD 

HL,TBL-PC 


AF80 


22 





AFA5 

39 



61 

ADD 

HL, SP 

: HL-TBL 

AF80 


23 

1 +♦+ 

FOR RESTART ++♦ 


AFA 6 

EB 



62 

EX 

DE, HL 


AF80 


24 





AFA7 

39 



63 

ADD 

HL, SP 

j HL-PRGST,DE-TBL 

AF80 23 


25 


INC 

HL 


AFAB 




64 




AF81 73 


26 


LD 

(HL),E 


AFA 8 




65 

; *»* 1 BYTE 

TABLE VERSION 

*** 

AF82 23 


27 


INC 

HL 


AFA 8 




67 

: CAUTION: OFFSET MUST BE LESS 100H 

AF83 72 


28 


LD 

(HL),D 


AFA 8 




68 




AFB4 


29 





AFA 8 

F9 



69 

LD 

SP, HL 


AF84 


30 

; +++ 

SAVE RETURN ADDRESS ++■ 


AFA9 




70 




AFB4 


31 





AFA9 

1A 



71 

CHG: LD 

A,(DE) 


AFB4 21 85 

00 

32 

SAVE: 

LD 

HL,PRGST-PC 


AFAA 

B7 



72 

OR 

A 


AF87 19 


33 


ADD 

HL,DE j 

HL-PRGST 

AFAB 

28 

0B 


73 

JR 

Z, OUT 


AF 8 B E5 


34 


PUSH 

HL ; 

SAVE IT IN STACK 

AFAD 

13 



74 

INC 

DE 


AF89 


35 





AFAE 

26 

00 


75 

LD 

H, 0 


AF89 


36 

, +++ 

SAVE ! 

3P +++ 


AFB0 

6 F 



76 

LD 

L, A 


AFB9 


37 





AFB1 

39 



77 

ADD 

HL, SP 


AF89 21 00 

00 

38 


LD 

HL, 0 


AFB2 

F9 



78 

LD 

SP, HL 


AF 8 C 39 


39 


ADD 

HL,SP ; 

HL—SP 

AFB3 

El 



79 

POP 

HL 
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AFB4 09 
AFB5 E5 
AFB6 18 FI 
AFB8 
AFB8 31 
AFB9 00 00 
AFBB C9 
AFBC 
AFBC 
AFBC 
AFBC 
AFBC 
AFBC 

AFBC 02 03 05 06 
AFC0 04 03 03 05 
AFC4 06 03 04 08 


80 ADD HL, 

81 PUSH HL 

82 JR CHE 

83 

84 OUT: DEFB 31H } LD SP,XXXX 

85 SAVSP: DEFW 0 

e6 RET | JP PRGST 

87 

88 j TBL 

89 ; 

90 ; END MARKsOOH 

91 

92 TBL: 

93 DEFB 0B002H-0B000H:005H-002H:00AH-005H:01QH-00AH 

94 DEFB 014H-010H:017H-014H:01AH-017H:Q1FH-01AH 

95 DEFB 025H-O1FH:02BH-025H:O2CH-028H:034H-02CH 


AFC8 05 03 06 04 96 DEFB 
AFCC 08 16 03 04 97 DEFB 
AFDO 05 0A 06 04 98 DEFB 
AFD4 0B 05 03 03 99 DEFB 
AFD8 03 03 03 03 100 DEFB 
AFDC 07 0C 03 05 101 DEFB 
AFE0 05 03 03 03 102 DEFB 
AFE4 03 03 04 03 103 DEFB 
AFE8 04 04 06 03 104 DEFB 
AFEC 09 0A 13 06 105 DEFB 
AFF0 03 03 0A 06 106 DEFB 
AFF4 03 08 06 03 107 DEFB 
AFF8 08 20 03 51 108 DEFB 
AFFC 03 03 03 109 DEFB 
AFFF 00 110 DEFB 


Q39H-034H:03CH-039H:042H-03CH:046H-042H 
O4EH-046H:064H-O4EH:067H-O64H:06BH-067H 
07QH-06BH:07AH-070H:O80H-07AH:084H-Q80H 
0BFH-084H:094H-0BFH:097H-094H:O9AH-097H 
09DH-09AH:0A0H-09DH:0A3H-0AQHj0A6H-0A3H 
0ADH-0A6H:0B9H-0ADHi0BCH-0B9H:0C1H-QBCH 
0C6H-0C1H:0C9H-0C6H:0CCH-0C9H:0CFH-0CCH 
0D2H-OCFH:0D5H-0D2H:0D9H-0D5H:0DCH-0D9H 
0E0H-0DCH:0E4H-0EOH:QEAH-0E4H:0EDH-OEAH 
OF6H-0EDH:100H-0F6H:l13H-100H:119H-113H 
11CH-U9H: 11FH-UCH: 129H-UFH: 12FH-129H 
132H-12FH:13AH-132H:14QH-13AH:143H-140H 
14BH-143H:16BH-14BH:16EH-16BH:1BFH-16EH 
1C2H-IBFH:1C5H-1C2H:1CBH-1C5H 
EOT ; END MARK 
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77 K©tl'-rto r JP (HL)j»'T, 
JP, CALLliMWT K w x t: L ii'Sh & t V 
4.0 6000h *‘*obat b 7 °o 7*7 r CALL 
6100 hj* j * b t L £ tta. 2©7°n7"7A 
^8000 h(:b —KLT I), r CALL 6100 hj (J 
r CALL 6100 hj©£ tX\ 8100Ht:$t>-5-C 
Ii(nit4„ JP^fe IS] Iff to 7 °n ;X" 
7 A* ! '4i' t 2 4-^2 ; >>7°L/2 y 7—^ 

L 4 y t 6 4 Ltlii’it. 
t I'xifa^-rto 

©ib^^^LD-ft. r LD (nn), Aj © 
nnt, o — F LfcT Fi'XCiot^no 

t < ti/2y iit4. a^-a#«f^Lt:L 

1 7 2 t 4'-5 T J? y i to (BC), (DE), 
(HL)Cttt bLDtS-oXffli: 2 tt'to 

?• 2 f BOUNCER©M*&t't„ BOUNCER 
^7it52ti:jy, ±ie©^4 , flxy 
pfcJi y n^r-?7>47o/7A^4 2 
t* f "I^4©t't. 

J BOUNCERO)ffll\7o 

i t iiLD^©)k-ti£-c't*' ; , 2 nuia i © 

i7Clito f-i-TWORKt 1.'7 «t 7 C 
*6M#ilfe^* : i.'t:i.'4t2 55f, i^©#^- 
©slt©fflM#JtllWORK-XX(:LT±>-^ t 
to ts t, BfilHU© r CALL BOUNCER j 
t, 7°a7'7^©7 K^XC-a-btfiliE 
47 Ftxcfisni 11' 7 ttt-T'to 
@2tlt< 4*51'. 2 © <fc 7 4 7 K W 7 
b MSt'li t to 

JP^n (2 it ta 3 © ot 7 C L 7*416 L it. 

2 2 -f{> J P!i y, 77°4fe(ifflLt7 K' ^ 
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xcitfc^ t t. 

#^CCALL-rt* ? , t> ?¥-Sclii=>'6a* 

!)-TLj: 5. EHt'to Zftli, A* 5 '0© 
t & h 7 4 t 4 BOUNCER© 

aiit'i'ji’xirttftiSfshst#, *:*r 

r CALL BOUNCERj 

5 i z £t:i£g U< «i'. 

Z©J: 7 C BOUNCER li^i'#**#&(: 

9 a li y n 7 — 7 7> t: 4 5 ©ft» 
nHUD^if 8000 h f 7 -fc 7 7V 
LtfaH L/Co tSo 

/z^TiilfiL-C^-C < 

■&©P)K, y-xfcfl'lbii*, g'fr©£F§‘ 
47IVxt:B0UNCER£Et.'-Cftot*li 
7 t S'.' £ to 


0 1 


LD 

(WORK), A 


41 

CALL 

BOUNCER 

LD 

(WORK-XX), A 

XX : 

S 

WORK : DEFB 

0 


02 



LD 

LD 

CALL 

LD 

XX : LD 

1 

WORK : DEFB 

HL, WORK 
(HL).B 

4V 

BOUNCER 

HL, WORK-XX 
(HL),B 

0 

0 3 


JP 

STEP 

41 


CALL 

BOUNCER 


JP 

STEP-XX 


XX : 

1 


STEP : 

i 

m 4 


OR 

A 


CALL 

Z, RETRY 

41 


OR 

A 


CALL 

BOUNCER 


CALL 

Z, RETRY-XX 


xx : 

\ 


RETRY I 

\ 


fife Ltl'T'r-rTTttac tztz L, 
fF^ foii^T l' f> o L *> £ J: 7 CSJf (4 
44 I) S < 4 O X L i I' i t o ttt U z 
80tcfci'T<J nt-9 7;uc, tu-?© 
li?BiM4<7>4fe Lfr.4 tA-tao 
ttCGETPC t [HL]4S-0SC£>U, Z 
tUiLL'J □7'7A©fc«> 

t fc©«»AV, 

BOUNCER £ S-OS C ijt *&*,'© li jl^ *b 
itTl'tztiZ £to (MM'S.) 


UXF2-A B0UNCER7’7 7 U X h 


8000 

22 

63 

80 

21 

00 

00 

22 

65 

: AD 

8008 

80 

22 

67 

80 

21 

69 

80 

36 

:C9 

8010 

C3 

El 

22 

6A 

80 

ED 

73 

60 

: 70 

8018 

80 

31 

A0 

80 

F5 

D5 

7E 

5F 

: 78 

8020 

23 

FE 

ED 

28 

47 

E6 

DF 

FE 

: 40 

8028 

DD 

28 

4C 

53 

IE 

00 

7A 

FE 

:3A 

8030 

CD 

28 

4F 

FE 

C3 

28 

17 

E6 

:2A 

8038 

C7 

FE 

C4 

28 

47 

FE 

C2 

28 

:E0 

8040 

0D 

7A 

E6 

CF 

3D 

28 

07 

7A 

: 22 

8048 

E6 

E7 

FE 

22 

20 

0F 

ED 

53 

:5C 

8050 

65 

90 

5E 

23 

56 

23 

22 

6A 

:6B 

8058 

80 

19 

22 

67 

80 

D1 

FI 

31 

: 95 

8060 

00 

00 

21 

00 

00 

00 

00 

00 

: 21 

8068 

00 

00 

00 

00 

7E 

57 

E6 

C7 

: 82 

8070 

FE 

43 

20 

E9 

23 

18 

D7 

7E 

: DA 

8078 

57 

E6 

F0 

FE 

20 

20 

DE 

23 

:6C 

SUM: 

A6 

06 

8A 

8E 

F9 

FI 

67 

34 

: 49 

8080 

18 

BF 

16 

C5 

7A 

D6 

02 

57 

:5B 

8088 

ED 

7B 

60 

80 

23 

23 

E5 

2B 

:9E 

8090 

2B 

ED 

73 

60 

80 

3E 

C9 

32 

:A4 

8098 

69 

80 

18 

B2 

00 

00 

00 

00 

:B3 

SUM: 

99 

A7 

01 

57 

ID 

37 

B0 

B4 

: 50 


■JXh2-B BOUNCERV —X U X h 
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100 REM FM ONGEN TEST 

101 REM BY MASAKAZU.T 

102 REM 

110 INIT"CRT:G" 

120 CLS 3 

130 LINEC130,0„0,199:LINEC130,100,319,100 
140 Yl-100 
150 A=80 

160 PRINT "F=A.SIN(T+L.SIN(N.T))" 

170 INPUT "L=";L 
180 INPUT "N=";N 
190 FOR X=1 TD 319 STEP 2 

200 Y=100—A *SIN < X * 3.14/90+L*SIN(N*X*3.14/90) > 
210 LINEC73X—1,Y1,X,Y:Y1=Y 
220 NEXT 

230 GET A$:IF A*=""THEN 230 ELSE 120 
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10 REM ****************** 

11 REM **□ T9'J 7W76 

12 REM 

13 REM BY M.TAGA 

14 REM ****************** 

15 REM 

20 CLSrCLR:RESTORE 

30 DIM D<3,10),F<1,16),K(90) 

40 REM KEY CODE READ- 

50 FOR 1=0 TO 90:K(I)=255:NEXT 
60 FOR 1=0 TO 29 

70 READ A:K< A > =1 

71 K(A)=I 
80 NEXT 

90 REM ONKAI DATA READ- 

100 FOR 1=0 TO 16 
110 READ F<0,I),F(1,I) 

120 NEXT 

130 N0=0*.DA=$C800 

200 REM ========== 

201 REM CRT MAKE 

202 REM ========== 

203 REM 
210 CLS 

220 CURSOR 2,1 SPRINT "NO.";NO 

230 PRINT TAB(12)j"1 2 3 4" 

240 PRINT " CONNECT " 

250 PRINT " F. BACK " 

260 PRINT " MULIPLE" 

270 PRINT " T.LEVEL" 

280 PRINT " A.RATE" 

290 PRINT " D.RATE" 

300 PRINT " S.RATE" 

310 PRINT " S.LEVEL" 

320 PRINT " R.RATE" 

330 PRINT " DETUNE" 

340 PRINT " K.SCALE" 

345 CURSOR 1,20:PRINT"OCT" 

350 A=DA+N0*40 

360 CURSOR 15,1:FOR 1=0 TO 9 

362 B=PEEK(A):IF B<*20 THEN B=*20 

364 PRINT CHR*(B);:A=A+l:NEXTsA=A+1 

370 FOR 1=0 TO 3:B=PEEK<A):A=A+1:Q=INT<B/8):R=B-Q*8:D(I,2) 
=?R: D( 1,9)=Q: NEXT 


4)=R:D(I,10)=Q:NEXT 

400 FOR 1=0 TO 3: B=PEEK (A ): A=A+1: D (I , 5 ) =B: NEXT 
410 FOR 1=0 TO 3:B=PEEK < A):A=A+1:D(1,6)=B:NEXT 
420 FOR 1=0 TO 3:B=PEEK(A):A=A+1:Q=INT(B/16):R=B-Q*16:D(I, 
8)=R:D(I,7)=Q:NEXT 

430 B=PEEK(A):Q=INT(B/8):R=B-Q*8:D(0,0)=R:D(0,1>=Q 
440 FOR 1 = 1 TO 10J B=D<1,1):D(1,I)=D(2,1):D(2,I>=B:NEXT 
450 X=0:Y=0:GOSUB 5000:G0SUB 5400 
460 X=0:Y=1:GOSUB 5000:GOSUB 5400 

470 FOR X=0 TO 3:FOR Y=2 TO 10:GOSUB 5000:GOSUB 5400:NEXT: 
NEXT 

480 X=0:Y=0:0=4:CURSOR 7,20:PRINT 0 


490 GOSUB 5200 

500 REM =========== 

501 REM KEY INPUT 

502 REM =========== 

503 REM 

510 GET A*:A=ASC<A*> 

520 IF A>90 THEN 510 
530 A=K(A) 

540 IF A<17 THEN 600 

550 ON A-16 GOTO 700,750,810,820,830,840,500,1100,1600,120 
0,1300,1400,1500 
560 GOTO 510 

600 REM =========== 

601 REM ONKAI KEY 

602 REM =========== 

603 REM 

610 0UT3)0, SA4: 0UT31, F(0, A) +8*0 
620 0UT30,<A0:0UT31,F(1,A) 

630 0UT90,$28:0UT31,*0:0UT91,*F0 
640 GOTO 500 

700 REM ======== 

701 REM OCT UP 

702 REM ======== 

703 REM 

710 0=0+1:IF 0=8 THEN 0=0 
720 CURSOR 7,20:PRINT 0 
730 GOTO 500 

750 REM ========== 

751 REM OCT DOWN 

752 REM ========== 

753 REM 

760 0=0-1:IF 0=-l THEN 0=7 
770 GOTO 720 

800 REM ============== 

801 REM DATA UP DOWN 

802 REM ============== 

803 REM 

810 D=1:GOTO 850 
820 D=-l:GOTO 850 
830 D=5:GOTO 850 
840 D=-5:GOTO 850 

850 ON ,Y+ 1 GOTO 860,860,870,880,890,890,890,870,870,860,900 

860 LM=7:GOTO 910 

870 LM=15:G0T0 910 

880 LM=127:GOTO 910 

890 LM=31:GOTO 910 

900 LM=3:GOTO 910 

910 D(X,Y)=D(X, Y)+D 

920 IF D(X,Y)<0 THEN D(X,Y>=D(X,Y)+LM+1 
930 IF D(X,Y)>LM THEN D< X,Y)=D(X,Y)-LM-1 
940 GOSUB 5000:GOSUB 5400 
950 GOTO 500 

1100 REM ========== 

1101 REM OTO STOP 

1102 REM ========== 

1103 REM 

1110 0UT90,<28:0UT31,0 
1120 GOTO 500 
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1200 REM =========== 

1201 REM CURSOR UP 

1202 REM =========== 

1203 REM 

1210 GOSUB 5300 
1220 Y=Y—1 

1230 IF (Y=-l>+<Y=l>*<X>0> THEN Y=10 
1240 GOSUB 5200 
1250 GOTO 500 

1300 REM ============= 

1301 REM CURSOR DOWN 

1302 REM ============= 

1303 REM 

1310 GOSUB 5300 
1320 Y=Y+1 

1330 IF <X=0)*(Y=11> THEN Y=0:GQT0 1350 
1340 IF Y=11 THEN Y=2 
1350 GOSUB 5200 
1360 GOTO 500 

1400 REM ============= 

1401 REM CURSOR LEFT 

1402 REM ============= 

1403 REM 

1410 IF Y<2 THEN 1460 
1420 GOSUB 5300 
1430 X=X-1 

1440 IF X=—1 THEN X=3 
1450 GOSUB 5200 
1460 GOTO 500 

1500 REM ============== 

1501 REM CURSOR RIGHT 

1502 REM ============== 

1503 REM 

1510 IF Y<2 THEN 1560 
1520 GOSUB 5300 
1530 X=X+1 

1540 IF X=4 THEN X=0 
1550 GOSUB 5200 
1560 GOTO 500 

1600 REM ====== 

1601 REM MENW 

1602 REM ====== 

1603 REM 

1610 GOSUB 5300 

1620 CURSOR 20,16:PRINT"l:NEIRO" 

1630 CURSOR 20,17:PRINT"2:NAME" 

1640 GET A:IF A=0 THEN 1640 
1650 IF A=1 THEN 1900 
1660 IF A=2 THEN 1800 
1670 CURSOR 20,16:PRINT" 

1680 CURSOR 20,17:PRINT" 

1690 GOSUB 5200 
1700 GOTO 500 

1800 REM ====== 

1801 REM NAME 

1802 REM ====== 

1803 REM 

1810 CURSOR 20,16JPRINT" 

1820 CURSOR 20,19:INPUT A* 

1830 A=DA+N0*40 

1840 FOR 1 = 1 TO 10:POKE A,ASC < MI D$(A$+" " , 1, 1)) 

:A=A+1:NEXT 


1850 CURSOR 15,1:PRINT LEFT$(A$+" ",10> 

1860 CURSOR 0,16:FOR 1=16 TO 23:CURSOR 20,I:PRINT SPC(19 
):NEXT 

1870 GOSUB 5200 
1880 GOTO 500 

1900 REM ======= 

1901 REM NEIRO 

1902 REM ======= 

1903 REM 
1910 CLS 

1920 Y=2:PP=ll:GOSUB 5500:REM MULTIPLE 
1930 Y=3:PP=15:GOSUB 5500:REM T.LEVEL 
1940 Y=4:PP=19:GOSUB 5500:REM A.RATE 
1950 Y=5:PP=23:GOSUB 5500:REM D.R. 

1960 Y=6:PP=27:GOSUB 5500:REM S^R. 

1965 Y=7:PP=3l:GOSUB 5500:REM S.L. 

1970 X=0:Y=0:GOSUB 5000:POKE DA+N0*40+35,OD 
2020 CURSOR 16, 1: PRI NT" =======•• 

2030 CURSOR 16,2:PRINT" NEIRO " 

2040 CURSOR 16,3:PRINT"=======" 

2050 PRINT" NO. NAME NO. NAME" 

2060 A=DA 
2070 FOR J=0 TO 1 
2080 FOR 1=0 TO 18 
2090 CURSOR 5-KT*17,5+I 

2110 PRINT RIGHTS(" "+STR$<I+J*19),2);":"; 

2120 FOR 11=0 TO 9 

2122 JJ=PEEK(A):IF JJ<$20 THEN JJ=$20 
2124 PRINT CHRStJJ); 

2126 A=A+1:NEXT 
2130 A=A+30 
2140 NEXT:NEXT 

2150 CURSOR 10,24:INPUT"NO.?";A 
2160 A=I NT(ABS(A))sIF A>37 THEN 2050 
2170 NO=A 

2180 FOR 1=0 TO 18 
2190 GOTO 200 

5000 REM ===================== 


5001 REM DATA WRITE 

5002 REM X,Y;DAT NO SET 

5003 REM OD ;OPN WRITE DATA 

5004 REM ===================== 

5005 REM 

5010 ON Y+l GOTO 5020,5020,5030,5040,5050,5040,5040,5060,50 
60,5030,5050 
5015 STOP 

5020 P=$BO:OD=D<0,0)+D (O,1)#8:GOTO 5070 
5030 P=$30s OD=D(X,O)+D(X,9)$8:GOTO 5070 
5040 P=$10*(Y+l)sQD=D(X,Y):GQTO 5070 
5050 P=$50:0D=D<X,4)+D<X,10)*64:GOTO 5070 
5060 P=$80:OD=D < X,7)* 16+D < X,8):GOTO 5070 
5070 ON X+l GOTO 5080,5090,5100,5110 
5075 STOP 

5080 PX=0:GOTO 5120 
5090 PX=8:GOTO 5120 
5100 PX=4:GOTO 5120 
5110 PX=12:G0T0 5120 
5120 0UT<D0, P+PX: 0UTS)1, OD 
5130 RETURN 

5200 REM ================= 

5201 REM CURSOR SET 

5202 REM X,Y?CURSOR ADR 

5203 REM ================= 

5204 REM 

5210 CURSOR 10+X*5,3+Y:PRINT"C" 

5220 CURSOR 14+X*5,3+Y:PRINT"D" 

5230 RETURN 

5300 REM ================= 

5301 REM CURSOR RESET 

5302 REM X,Y;CURSOR ADR 

5303 REM ================= 

5304 REM 

5310 CURSOR 10+X*5,3+Y:PRINT" " 

5320 CURSOR 14+X*5,3+Y:PRINT" " 

5330 RETURN 

5400 REM ================ 

5401 REM DATA PRINT 

5402 REM X,Y*,CURSOR 

5405 REM 

5410 CURSOR U + X*5,3+Y 

5420 PRINT RIGHTS(" "+STRS<D(X,Y)>,3) 

5430 RETURN 

5500 REM ========== 

5501 REM KAKIKOMI 

5502 REM ========== 

5503 REM 
5510 X=0 

5520 AA=DA+N0*40 
5530 FOR 1=0 TO 3 
5540 GOSUB 5000 
5550 X = X+2 
5560 IF X=4 THEN X=1 
5570 POKE AA+PP+I,OD 
5580 NEXT 
5590 RETURN 

10000 REM =============== 

10001 REM KEY CODE DATA 

10002 REM =============== 

10003 REM 

10010 DATA 49,81,87,51,69,52,82,84,54,89 
10020 DATA 55,85,56,73,79,48,80,65,90,83 
10030 DATA 88,68,67,78,32,13,75,44,77,46 

10050 REM ================== 

10051 REM C,D,E,.. NO DATA 

10052 REM ================== 

10053 REM 

10060 DATA 2,38,2,71,2,105,2,142,2,181,2,222 
10070 DATA 3,10,3,56,3,105,3,157,3,212 
10080 DATA 4,14,4,76,4,141,4,211 
10090 DATA 5,28,5,106 


• SP-5030ffl£M£ 

610 0UT#0,$A4:OUT#1,F(0,A)+8*0 
620 0UT#0,$A0:0UT#1,F(1,A) 

630 0UT#0,$28:0UT#1,$0:QUT31,$F0 
1110 0UT#0,$28:0UT#1,O 
5120 0UT#0,P+PX:OUT#1,OD 


• HuBASICffl^lE£ 

130 N0=0:DA=&HC800 

362 B=PEEK < A): IF B<&H20 THEN B=S<H20 
610 OUT (O),&HA4:OUT (1),F(O,A)+8*0 
620 OUT <0),&HAO:OUT (1),F<1,A) 

630 OUT (O),&H28:OUT <1>,&H0:0UT <1),&HF0 
1110 OUT (O),&H28:0UT <1>,0 
2122 JJ=PEEK(A):IF JJ<&H20 THEN JJ=&H20 
5020 P=&HB0:0D=D(0,O)+D(0,1)*8:GOTO 5070 
5030 P=&H30:OD=D(X,O)+D(X,9)*8:GOTO 5070 
5040 P=&H10*(Y+l):OD=D(X,Y)•GOTO 5070 
5050 P=&H50:0D=D(X,4)+D(X,10)*64:GOTO 5070 
5060 P=!<H80: OD=D ( X, 7) * 16+D ( X, 8 ): GOTO 5070 
5120 OUT <0>,P+PX:OUT <1),OD 
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31 

01 

2A 

F7 9D60 

48 

41 

52 

4D 

4F 

4E 

49 

20 

2E 

9968 

OE 

OE 

03 

00 

00 

00 

00 

13 

32 

9B68 

35 

27 

10 

DF 

54 

DO 

8F 

09 

07 9D68 

OD 

OD 

OD 

35 

05 

10 

01 

26 

98 

9970 

FA 

13 

OA 

3 A 

00 

00 

00 

00 

51 

9B70 

07 

OB 

04 

03 

00 

00 

00 

E5 

FE 9D70 

33 

20 

15 

14 

14 

10 

OE 

05 

B3 

9978 

53 

54 

52 

49 

4E 

47 

20 

31 

28 

9B78 

F5 

25 

08 

3B 

00 

00 

00 

00 

5D 9D78 

08 

02 

08 

00 

00 

00 

00 

$9 

AB 

SUM: 

FI 

6C 

E5 

98 

CE 

CO 

FI 

31 

8A 

SUM: 

CD 

E7 

94 

64 

45 

IB 

DE 

28 i 

:12 SUM: 

A1 

D1 

BC 

76 

52 

B2 

B3 

80 : 

: DB 

9980 

20 

OD 

OD 

11 

15 

01 

11 

1C 

8E 

9B80 

50 

49 

43 

43 

4F 

4C 

4F 

20 

29 9D80 

09 

09 

19 

38 

00 

00 

00 

00 

63 

9988 

12 

31 

11 

59 

59 

5C 

4E 

OA 

BA 

9B88 

OD 

OD 

OD 

01 

01 

01 

01 

2E 

59 9D88 

54 

49 

4D 

50 

41 

4E 

49 

20 

32 

9990 

OB 

OD 

04 

00 

00 

00 

00 

15 

31 

9B90 

ID 

IE 

1C 

IF 

14 

14 

14 

OA 

BC 9D90 

OD 

OD 

OD 

70 

50 

70 

00 

28 

7F 

9998 

58 

26 

06 

3A 

00 

00 

00 

00 

BE 

9B98 

06 

OB 

OB 

OF 

00 

00 

00 

59 

84 9D98 

28 

27 

10 

ID 

ID 

ID 

IF 

06 

DB 

99A0 

53 

54 

52 

49 

4E 

47 

20 

32 

29 

9BA0 

F9 

19 

19 

3E 

00 

00 

00 

00 

69 9DA0 

00 

OD 

00 

00 

06 

06 

07 

F4 

14 

99A8 

20 

OD 

OD 

11 

15 

01 

11 

ID 

8F 

9BA8 

4F 

42 

4F 

45 

20 

OD 

OD 

OD 

6C 9DA8 

04 

24 

05 

39 

00 

00 

00 

00 

66 

99B0 

22 

3A 

10 

5C 

53 

5C 

4D 

07 

CB 

9BB0 

OD 

OD 

OD 

31 

39 

32 

34 

20 

17 9DB0 

4D 

41 

52 

53 

20 

54 

4F 

20 

16 

99BS 

09 

07 

04 

00 

00 

00 

00 

13 

27 

9BB8 

2B 

33 

13 

D9 

DC 

56 

54 

OB 

DB 9DB8 

OD 

OD 

OD 

38 

31 

32 

32 

OF 

03 

99C0 

34 

13 

07 

3A 

00 

00 

00 

00 

88 9BC0 

OC 

00 

06 

00 

OC 

00 

00 

13 

31 9DC0 

2C 

06 

06 

9F 

1C 

9F 

53 

OD 

F2 

99C8 

45 

50 

49 

41 

4E 

4F 

20 

31 

OD 

9BC8 

5B 

IB 

OB 

3 A 

00 

00 

00 

00 

BB 9DC8 

08 

04 

09 

10 

09 

08 

00 

22 

58 

99D0 

20 

OD 

OD 

11 

21 

OA 

11 

1A 

A1 

9BD0 

43 

4C 

41 

52 

49 

4E 

45 

54 

52 9DD0 

E2 

D2 

F2 

39 

00 

00 

00 

00 

DF 

99D8 

12 

3C 

13 

9A 

98 

DA 

D8 

OF 

54 

9BD8 

20 

OD 

OD 

01 

02 

04 

01 

27 

69 9DDB 

57 

49 

4E 

44 

20 

42 

45 

4C 

25 

99E0 

OC 

07 

OC 

00 

05 

03 

05 

26 

52 

9BE0 

25 

37 

13 

5F 

13 

5F 

53 

00 

93 9DE0 

4C 

53 

OD 

36 

3D 

21 

35 

18 

8D 

99E8 

28 

46 

28 

14 

00 

00 

00 

00 

AA 

9BE8 

OB 

OF 

OF 

00 

00 

00 

00 

00 

29 9DE8 

14 

06 

07 

1C 

5C 

4E 

4D 

08 

3C 

99F0 

45 

50 

49 

41 

4E 

4F 

20 

32 

OE 

9BF0 

4B 

09 

09 

3B 

00 

00 

00 

00 

98 9DF0 

07 

04 

09 

00 

00 

00 

00 

13 

27 

99F8 

20 

OD 

OD 

3F 

41 

01 

01 

2C 

E8 

9BF8 

47 

4C 

4F 

43- 

4B 

45 

4E 

20 

23 9DFB 

10 

52 

32 

04 

00 

00 

00 

00 

98 

SUM: 

77 

69 

95 

14 

BF 

87 

OC 

82 ! 

:5D 

SUM: 

8C 

29 

D8 

69 

4E 

EC 

EO 

97 : 

: A7 SUM: 

D4 

D9 

85 

5B 

E3 

BF 

OA 

IF : 

: 58 

9A00 

ID 

2C 

10 

9F 

DB 

9E 

5E 

OF 

DE 

9C00 

OD 

OD 

OD 

3B 

01 

07 

71 

23 

FE 9E00 

53 

50 

41 

43 

45 

20 

54 

41 

21 

9A08 

07 

06 

07 

08 

OA 

OB 

00 

8A 

BB 

9C08 

1C 

18 

10 

DF 

DE 

5F 

DE 

OE 

4C 9E0B 

4C 

4B 

OD 

33 

32 

33 

31 

06 

73 

9A10 

86 

F6 

F7 

1C 

00 

00 

00 

00 

8F 

9C10 

09 

10 

07 

00 

07 

05 

04 

FF 

2F 9E10 

06 

06 

06 

05 

06 

03 

08 

IF 

47 

9A1B 

45 

50 

49 

41 

4E 

4F 

20 

33 

OF 

9C18 

16 

AO 

17 

1C 

00 

00 

00 

00 

E9 9E18 

IF 

IF 

IF 

01 

03 

04 

02 

01 

68 

9A20 

20 

OD 

OD 

31 

4C 

64 

01 

25 

41 

9C20 

56 

49 

42 

52 

50 

48 

4E 

20 

39 9E20 

01 

01 

09 

05 

00 

00 

00 

00 

10 

9A28 

43 

33 

10 

9C 

DB 

9C 

DA 

04 

77 

9C28 

OD 

OD 

OD 

39 

56 

05 

01 

22 

DE 9E2B 

52 

4E 

44 

28 

31 

29 

20 

OD 

93 

9A30 

09 

04 

03 

03 

01 

03 

00 

17 

2E 

9C30 

IF 

46 

11 

5F 

DB 

9E 

9E 

10 

FC 9E30 

OD 

OD 

OD 

50 

01 

OB 

50 

OB 

DE 

9A38 

02 

06 

A5 

3A 

00 

00 

00 

00 

E7 

9C38 

07 

OC 

05 

00 

OA 

OB 

OA 

BA 

FI 9E38 

02 

OE 

05 

58 

17 

46 

42 

OF 

IB 

9A40 

47 

55 

49 

54 

41 

52 

20 

OD 

F9 

9C40 

71 

F6 

F5 

24 

00 

00 

00 

00 

80 9E40 

02 

01 

00 

OB 

08 

18 

17 

52 

97 

9^48 

OD 

OD 

OD 

32 

33 

33 

31 

2A 

1A 

9C48 

58 

59 

4C 

4F 

50 

48 

4E 

20 

52 9E48 

C2 

42 

D2 

05 

00 

00 

00 

00 

DB 

9A50 

28 

2E 

10 

DF 

DF 

DF 

9F 

07 

A9 

9C50 

OD 

OD 

OD 

35 

21 

33 

31 

21 

02 9E50 

42 

52 

45 

41 

4B 

20 

47 

4C 

18 

9A58 

04 

04 

OA 

04 

04 

04 

03 

F7 

18 

9C58 

1C 

23 

11 

59 

59 

59 

59 

17 

CB 9E58 

41 

53 

OD 

3D 

38 

3F 

3B 

06 

96 

9A60 

FB 

FB 

OB 

21 

00 

00 

00 

00 

22 

9C60 

OE 

14 

OE 

OA 

OB 

OB 

OC 

E8 

44 9E60 

26 

06 

OF 

5F 

IF 

IF 

IF 

OA 

01 

9A6B 

45 

42 

41 

53 

53 

20 

31 

20 

DF 

9C68 

F8 

E8 

F8 

3C 

00 

00 

00 

00 

14 9E68 

IF 

05 

05 

00 

00 

03 

03 

A4 

D3 

9A70 

OD 

OD 

OD 

36 

35 

30 

31 

IE 

11 

9C70 

4B 

4F 

54 

4F 

20 

OD 

OD 

OD 

84 9E70 

06 

74 

74 

3C 

00 

00 

00 

00 

2A 

9A78 

3A 

16 

10 

DF 

DF 

9F 

9F 

07 

63 

9C78 

OD 

OD 

OD 

33 

34 

31 

31 

20 

10 9E78 

4F 

53 

48 

41 

4D 

49 

20 

OD 

EE 

SUM: 

64 

B6 

F5 

00 

19 

52 

4D 

86 : 

:4D 

SUM: 

21 

54 

66 

E9 

9A 

7E 

6C 

A9 : 

5 FI SUM: 

07 

E4 

C6 

BB 

CO 

B6 

1C 

ED : EB 

9A80 

06 

09 

06 

07 

06 

06 

08 

29 

59 

9C80 

20 

IF 

16 

DA 

DD 

DC 

DF 

08 

CF 9EB0 

OD 

OD 

OD 

51 

61 

69 

03 

OE 

53 

9A88 

19 

19 

F9 

20 

00 

00 

00 

00 

4B 

9C88 

05 

04 

OA 

05 

04 

02 

03 

27 

48 9E88 

2E 

2B 

06 

IE 

9F 

DF 

9F 

15 

AF 

9A90 

45 

42 

41 

53 

53 

20 

32 

20 

EO 

9C90 

14 

36 

15 

38 

00 

00 

00 

00 

97 9E90 

02 

IB 

OD 

00 

03 

08 

OB 

F3 ' 

33 

9A98 

OD 

OD 

OD 

30 

30 

30 

30 

17 

FE 

9C98 

5A 

49 

54 

41 

52 

20 

OD 

OD 

C4 9E98 

03 

31 

63 

2A 

00 

00 

00 

00 

Cl 

9AA0 

3F 

17 

10 

9E 

D8 

DC 

DC 

OE 

A2 

9CA0 

OD 

OD 

OD 

37 

39 

21 

31 

21 

OA 9EA0 

OD 

OD 

OD 

OD 

OD 

OD 

OD 

OD 

68 

9AA8 

OA 

04 

05 

08 

08 

08 

08 

B6 

E9 

9CA8 

4A 

22 

17 

9F 

9F 

9F 

9F 

06 

05 9EA8 

OD 

OD 

OD 

00 

00 

00 

00 

00 

27 

9 ABO 

B6 

B6 

B6 

30 

00 

00 

00 

00 

52 

9CB0 

06 

OC 

OC 

06 

06 

06 

06 

01 

37 9EB0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9AB8 

45 

4F 

52 

47 

41 

4E 

20 

31 

OD 

9CB8 

01 

01 

05 

02 

00 

00 

00 

00 

09 9EB8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9AC0 

20 

OD 

OD 

35 

58 

72 

31 

27 

91 

9CC0 

43 

4C 

41 

56 

20 

OD 

OD 

OD 

6D 9EC0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9AC8 

IE 

29 

18 

DF 

IF 

IF 

IF 

12 

AD 

9CCB 

OD 

OD 

OD 

3C 

3B 

30 

31 

2D 

2C 9EC8 

OD 

OD 

OD 

OD 

OD 

OD 

OD 

OD 

68 

9AD0 

04 

OF 

OF 

00 

00 

00 

00 

2F 

51 

9CD0 

24 

13 

13 

DF 

IF 

IF 

DF 

04 

4A 9ED0 

OD 

OD 

OD 

00 

00 

00 

00 

00 

27 

9ADB 

OF 

OF 

OF 

3D 

00 

00 

00 

00 

6A 

9CD8 

05 

04 

01 

04 

04 

04 

02 

F7 

OF 9ED8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9AE0 

45 

4F 

52 

47 

41 

4E 

20 

32 

OE 

9CE0 

07 

17 

AC 

3B 

00 

00 

00 

00 

05 9EE0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9AE8 

20 

OD 

OD 

66 

31 

73 

22 

1C 

82 

9CE8 

48 

41 

52 

50 

53 

49 

43 

20 

2A 9EE8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9AF0 

15 

15 

IB 

1C 

98 

IF 

IF 

12 

49 

9CF0 

OD 

OD 

OD 

OC 

IF 

41 

55 

28 

10 - 










9AF8 

OF 

OF 

OF 

00 

00 

00 

00 

FF 

2C 

9CF8 

3C 

20 

16 

IF 

DF 

IF 

9F 

OC 

3A SUM: 

74 

BS 

B7 

B3 

ID 

6A 

C7 

30 : 

: 14 

SUM: 

8F 

65 

36 

El 

2B 

F9 

IF 

1C : 

: 6A 

SUM: 

02 V D3 

41 

61 

EO 

CD 

IB 

ED : 

2C 
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AOOO 

C3 

32 

AO 

C3 

41 

AO 

CA 

AB 

: AE 


A028 

IF 

C3 

A6 

IF 

C3 

A3 

IF 

C3 : EF 


A050 

3E 

OD 

77 

19 

10 

FC 

21 

78 

: 80 

A008 

C3 

00 

00 

C3 

F4 

IF 

C3 

F4 

: 50 


A030 

9D 

IF 

21 

00 

99 

36 

00 

11 

: BD 


A058 

IF 

5E 

23 

56 

D5 

DD 

El 

CD 

: 56 

A010 

AD 

C3 

E8 

IF 

C3 

EE 

IF 

C3 

: OA 


A038 

00 

99 

13 

01 

FO 

05 

OB 

ED : 9A 


A060 

17 

AO 

7C 

FE 

00 

CA 

81 

AO 

: 1C 

A018 

F7 

IF 

C3 

FI 

IF 

C3 

D3 

IF 

: 9E 


A040 

BO 

CD 

7B 

AB 

AF 

32 

67 

AC 

: 97 


A068 

FE 

01 

CA 

99 

AO 

FE 

02 

CA 

: CC 

A020 

C3 

AF 

IF 

C3 

AC 

IF 

C3 

A9 

: 8B 


A048 

21 

OA 

99 

11 

28 

00 

06 

26 :29 

E 

A070 

BC 

AO 

FE 

10 

CA 

A1 

AO 

FE 

: 73 
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A078 

11 

CA 

C2 

AO 

FE 

20 

CA 

C8 

: ED 


A2B8 

3E 

2E 

CD 

OB 

AO 

3A 

63 

AC 

2D 























A2C0 

E6 

02 

28 

04 

3E 

2B 

18 

02 

97 


A500 

OB 

AO 

05 

3E 

OF 

B8 

20 

CE 

A3 

SUM: 

B9 

8B 

F8 

EB 

33 

01 

C8 

32 

: 55 


A2C8 

3E 

30 

CD 

OB 

AO 

CD 

71 

A8 

CC 


A5BB 

06 

14 

IB 

BA 

DD 

36 

00 

14 

23 












A2D0 

C3 

48 

A2 

16 

00 

F3 

01 

00 

B7 


A510 

DD 

70 

01 

3E 

20 

CD 

OB 

AO 

24 

A080 

AO 

00 

00 

00 

3E 

BO 

32 

07 

:C7 


A2D8 

00 

3E 

28 

ED 

79 

00 

03 

7A 

49 


A518 

04 

3E 

16 

B8 

20 

B8 

06 

10 

FE 

A088 

EO 

3E 

C3 

32 

38 

10 

21 

CA 

: 46 


A2E0 

00 

00 

ED 

79 

00 

01 

02 

00 

69 


A520 

18 

B4 

78 

FE 

11 

CA 

4B 

A5 

OD 

A090 

AB 

22 

39 

10 

ED 

56 

C3 

EC 

: 08 


A2E8 

3E 

28 

ED 

79 

00 

03 

7A 

00 

49 


A528 

FE 

10 

CA 

98 

A5 

FE 

12 

CA 

EF 

A098 

AO 

00 

00 

00 

3E 

BO 

32 

07 

:C7 


A2F0 

00 

ED 

79 

00 

14 

3E 

03 

00 

BB 


A530 

79 

A7 

FE 

13 

CA 

17 

A7 

FE 

B7 

AOAO 

EO 

3E 

AO 

ED 

47 

01 

7D 

00 

: 70 


A2F8 

00 

00 

BA 

20 

D9 

FB 

AF 

32 

8F 


A538 

14 

CA 

AE 

A6 

C3 

08 

AO 

CD 

6A 

A0A8 

3E 

4F 

ED 

79 

00 

3E 

06 

ED 

: 24 













A540 

97 

A7 

CD 

71 

A8 

CD 

94 

A8 

2D 

AOBO 

79 

00 

3E 

F3 

ED 

79 

00 

ED 

: FD 


SUM: 

27 

36 

83 

73 

EF 

06 

2A 

B7 

: 29 


A548 

C3 

48 

A2 

DD 

36 

00 

15 

DD 

B2 

A0B8 

5E 

C3 

EC 

AO 

00 

00 

00 

C3 

: 70 













A550 

36 

01 

15 

11 

AC 

AD 

CD 

11 

94 

AOCO 

99 

AO 

00 

00 

00 

C3 

A1 

AO 

: 3D 


A300 

66 

AC 

C3 

48 

A2 

87 

16 

00 

5C 


A558 

AO 

CD 

71 

A8 

DD 

36 

01 

16 

BO 

A0C8 

00 

00 

00 

3E 

00 

ED 

47 

01 

: 73 


A308 

5F 

21 

BD 

AC 

19 

5E 

23 

56 

D9 


A560 

CD 

AD 

A7 

DA 

3F 

A5 

D5 

DD 

91 

AODO 

7D 

00 

3E 

4F 

ED 

79 

00 

3E 

: AE 


A310 

3A 

65 

AC 

87 

87 

87 

B2 

57 

E9 


A568 

36 

00 

OF 

DD 

36 

01 

01 

11 

6B 

A0D8 

54 

ED 

79 

00 

3E 

F3 

ED 

79 

: 51 


A318 

26 

00 

3A 

66 

AC, 

87 

6F 

01 

69 


A570 

D3 

AD 

CD 

11 

AO 

D1 

DD 

36 

E2 

AOEO 

00 

21 

CA 

AB 

22 

54 

00 

ED 

:F9 


A320 

07 

AC 

09 

73 

23 

72 

3A 

66 

64 


A578 

00 

OF 

DD 

36 

01 

01 

2A 

61 

AF 

A0E8 

5E 

C3 

EC 

AO 

FB 

3E 

OC 

CD 

: BF 


A328 

AC 

CB 

47 

28 

05 

01 

02 

00 

EE 












AOFO 

OB 

AO 

DD 

36 

00 

02 

DD 

36 

:D3 


A330 

18 

03 

01 

00 

00 

CB 

3F 

C6 

EC 


SUM: 

9B 

BD 

77 

52 

EC 

82 

29 

FD i 

: B5 

A0F8 

01 

01 

11 

DF 

AC 

CD 

11 

AO 

: 1C 


A338 

A4 

F3 

ED 

79 

00 

03 

7A 

00 

7A 























A340 

00 

ED 

79 

00 

OB 

3A 

66 

AC 

BD 


A580 

AC 

06 

OA 

AF 

B9 

3E 

20 

28 

AA 

SUM: 

94 

C2 

OE 

28 

C9 

FB 

9A 

49 

: 33 


A348 

CB 

3F 

C6 

AO 

00 

00 

00 

00 

70 


A588 

01 

1A 

77 

CD 

OB 

AO 

OD 

23 

3A 












A350 

00 

00 

00 

00 

00 

00 

00 

00 

00 


A590 

13 

10 

FO 

36 

OD 

C3 

3F 

A5 

FD 

A100 

CD 

14 

AO 

11 

E2 

AC 

CD 

11 

: FE 


A358 

00 

00 

00 

00 

00 

00 

ED 

79 

66 


A598 

CD 

A5 

A5 

CD 

49 

A6 

78 

32 

7D 

A108 

AO 

CD 

14 

AO 

11 

FF 

AC 

CD 

: AA 


A360 

00 

03 

7B 

00 

00 

ED 

79 

00 

E4 


A5A0 

67 

AC 

C3 

EC 

AO 

3E 

OC 

CD 

79 

A110 

11 

AO 

CD 

14 

AO 

11 

ID 

AD 

: OD 


A368 

3A 

66 

AC 

16 

00 

5F 

AF 

21 

91 


A5A8 

OB 

AO 

DD 

36 

00 

10 

DD 

36 

El 

A118 

CD 

11 

AO 

CD 

14 

AO 

11 

3B 

:4B 


A3 70 

13 

AC 

19 

77 

21 

25 

AC 

19 

5A 


A5B0 

01 

01 

11 

EC 

AD 

CD 

11 

AO 

2A 

A120 

AD 

CD 

11 

AO 

CD 

14 

AO 

11 

: BD 


A378 

77 

3C 

21 

IF 

AC 

19 

77 

2A 

59 


A5B8 

DD 

36 

00 

11 

DD 

36 

01 

02 

3A 

A128 

45 

AD 

CD 

11 

AO 

CD 

14 

AO 

: FI 













A5C0 

11 

B1 

AD 

CD 

11 

AO 

DD 

36 

00 

A130 

11 

4E 

AD 

CD 

11 

AO 

CD 

14 

:6B 


SUM: 

23 

1C 

44 

41 

EE 

F8 

ED 

63 : 

: FA 


A5C8 

00 

10 

DD 

36 

01 

03 

11 

EC 

24 

A138 

AO 

11 

56 

AD 

CD 

11 

AO 

CD 

: FF 













A5D0 

AD 

CD 

1 1 

AO 

DD 

36 

00 

05 

43 

A140 

14 

AO 

11 

5E 

AD 

CD 

11 

AO 

:4E 


A380 

61 

AC 

11 

25 

00 

19 

C5 

46 

67 


A5D8 

DD 

36 

01 

04 

11 

DF 

AC 

CD 

81 

A148 

CD 

14 

AO 

11 

66 

AD 

CD 

11 

: 83 


A388 

3A 

66 

AC 

16 

00 

5F 

21 

19 

FB 


A5E0 

11 

AO 

DD 

36 

00 

OA 

11 

AC 

8B 

A150 

AO 

CD 

14 

AO 

11 

6F 

AD 

CD 

: IB 


A390 

AC 

19 

70 

Cl 

OB 

3E 

28 

ED 

54 


A5E8 

AD 

CD 

11 

AO 

DD 

36 

00 

16 

54 

A158 

11 

AO 

CD 

14 

AO 

11 

77 

AD 

: 67 


A398 

79 

00 

03 

3A 

63 

AC 

E6 

01 

AC 


A5F0 

11 

DF 

AC 

CD 

11 

AO 

DD 

36 

2D 

A160 

CD 

11 

AO 

CD 

14 

AO 

11 

7F 

:8F 


A3A0 

28 

2B 

3A 

66 

AC 

CB 

3F 

ED 

96 


A5F8 

00 

IB 

11 

AC 

AD 

CD 

11 

AO 

03 

A168 

AD 

CD 

11 

AO 

CD 

14 

AO 

11 

: BD 


A3A8 

79 

00 

3A 

66 

AC 

CB 

3F 

C6 

95 












A170 

88 

AD 

CD 

11 

AO 

CD 

14 

AO 

: 34 


A3B0 

FO 

00 

00 

00 

00 

00 

00 

00 

FO 


SUM: 

47 

83 

OE 

94 

DF 

FD 

78 

53 : 

: 13 

A178 

11 

8C 

AD 

CD 

11 

AO 

CD 

14 

:A9 


A3B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 























A3C0 

00 

00 

00 

00 

ED 

79 

00 

FB 

61 


A600 

06 

00 

DD 

36 

01 

05 

11 

00 

30 

SUM: 

93 

A3 

BF 

2B 

48 

09 

5C 

C7 

: 94 


A3C8 

CD 

7F 

A8 

18 

22 

3A 

66 

AC 

7A 


A608 

99 

21 

F8 

02 

19 

EB 

DD 

36 

CB 












A3D0 

CB 

3F 

C6 

FO 

ED 

79 

00 

FB 

21 


A610 

00 

04 

78 

CD 

DD 

A8 

3E 

3A 

46 

A180 

AO 

11 

93 

AD 

CD 

11 

AO 

CD 

:3C 


A3D8 

CD 

7F 

A8 

F3 

OB 

3E 

28 

ED 

45 


A618 

CD 

OB 

AO 

EB 

CD 

11 

AO 

DD 

BE 

A188 

14 

AO 

11 

9B 

AD 

CD 

11 

AO 

:8B 


A3E0 

79 

00 

00 

00 

00 

03 

3A 

66 

1C 


A620 

36 

00 

15 

3E 

13 

80 

CD 

DD 

C6 

A190 

CD 

14* 

AO 

11 

A1 

AD 

CD 

11 

: BE 


A3E8 

AC 

CB 

3F 

ED 

79 

00 

FB 

3A 

51 


A628 

A8 

3E 

3A 

CD 

OB 

AO 

EB 

CD 

50 

A198 

AO 

CD 

14 

AO 

CD 

14 

AO 

11 

:B3 


A3F0 

63 

AC 

E6 

02 

CA 

48 

A2 

3A 

E5 


A630 

11 

AO 

D5 

1 1 

28 

00 

19 

D1 

A9 

A1A0 

A7 

AD 

CD 

11 

AO 

3A 

67 

AC 

: IF 


A3F8 

66 

AC 

3C 

FE 

06 

20 

01 

AF 

22 


A638 

E5 

21 

28 

00 

19 

EB 

El 

04 

17 

A1A8 

26 

00 

6F 

29 

29 

29 

E5 

29 

: IE 













A640 

CD 

14 

AO 

3E 

13 

B8 

20 

C6 

70 

A1B0 

29 

D1 

19 

11 

00 

99 

19 

22 

:F8 


SUM: 

A4 

B6 

IB 

EA 

16 

CD 

D8 

18 : 

: 32 


A648 

C9 

3A 

67 

AC 

47 

CD 

71 

A8 

43 

A1B8 

61 

AC 

3E 

04 

32 

65 

AC 

DD 

:6F 













A650 

CD 

6B 

A6 

3E 

3E 

CD 

OB 

AO 

D2 

A ICO 

36 

00 

07 

DD 

36 

01 

14 

3E 

: A3 


A400 

32 

66 

AC 

C3 

48 

A2 

3E 

FF 

2E 


A658 

CD 

8B 

A8 

CD 

OE 

AO 

FE 

4B 

C4 

A1C8 

34 

CD 

OB 

AO 

DD 

36 

00 

09 

:C8 


A408 

18 

02 

3E 

01 

21 

65 

AC 

86 

11 


A660 

28 

24 

FE 

2C 

28 

34 

FE 

OD 

DD 

A IDO 

DD 

36 

01 

14 

3E 

2E 

CD 

OB 

:6C 


A410 

E6 

07 

77 

DD 

36 

00 

07 

DD 

5B 


A668 

C8 

18 

FO 

3E 

12 

B8 

38 

OB : IB 

A1D8 

AO 

3E 

30 

CD 

OB 

AO 

AF 

32 

: 67 


A418 

36 

01 

14 

3E 

30 

86 

CD 

OB 

17 


A670 

3E 

05 

80 

DD 

36 

00 

04 

DD : 

:B7 

A1E0 

5E 

AC 

32 

5F 

AC 

32 

63 

AC 

: 88 


A420 

AO 

CD 

71 

A8 

C3 

48 

A2 

06 

39 


A678 

77 

01 

C9 

3E 

F2 

80 

DD 

36 ! 

: 04 

A1E8 

32 

66 

AC 

F5 

CD 

21 

AA 

00 

: D1 


A428 

FF 

18 

OA 

06 

01 

18 

06 

06 

4C 












A1F0 

47 

CD 

19 

A9 

FI 

3C 

32 

5F 

: 94 


A430 

FB 

18 

02 

06 

05 

21 

70 

AC 

5D 


SUM: 

15 

B5 

C5 

86 

2B 

12 

2F 

50 i 

:D1 

A1F8 

AC 

FE 

OF 

20 

EE 

06 

01 

78 

: 46 


A438 

3A 

5F 

AC 

16 

00 

5F 

87 

83 

C4 























A440 

5F 

19 

7E 

CB 

3F 

38 

04 

CB 

07 


A680 

00 

15 

DD 

77 

01 

C9 

CD 

6B ! 

:6B 

SUM: 

E2 

DA 

34 

C3 

97 

9A 

FF 

6A 

:4D 


A448 

20 

18 

F8 

C5 

CD 

21 

AA 

Cl 

4E 


A688 

A6 

3E 

20 

CD 

OB 

AO 

05 

3E ‘ 

: BF 












A450 

80 

47 

CD 

19 

A9 

CD 

8B 

A8 

56 


A690 

FF 

B8 

C2 

50 

A6 

06 

25 

C3 ! 

: 5D 

A200 

32 

5E 

AC 

OE 

02 

79 

32 

5F 

: 56 


A458 

C3 

48 

A2 

3A 

67 

AC 

3C 

FE 

34 


A698 

50 

A6 

CD 

6B 

A6 

3E 

20 

CD ' 

: FF 

A208 

AC 

C5 

CD 

21 

AA 

00 

47 

CD 

: ID 


A460 

26 

20 

01 

AF 

32 

67 

AC 

C3 

FE 


A6A0 

OB 

AO 

04 

3E 

26 

B8 

C2 

50 i 

: DD 

A210 

19 

A9 

Cl 

OC 

3E 

OB 

B9 

20 

:B1 


A468 

EC 

AO 

3A 

67 

AC 

3D 

FE 

FF 

13 


A6A8 

A6 

06 

00 

C3 

50 

A6 

CD 

A5 : 

:D7 

A218 

EC 

04 

3E 

04 

B8 

20 

EO 

3A 

: 24 


A470 

20 

02 

3E 

25 

32 

67 

AC 

C3 

8D 


A6B0 

A5 

DD 

36 

00 

05 

DD 

36 

01 ! 

: D1 

A220 

67 

AC 

DD 

36 

00 

04 

DD 

36 

: 3D 


A478 

EC 

AO 

CD 

AA 

A8 

DD 

36 

00 

BE 


A6B8 

00 

11 

C6 

AD 

CD 

11 

AO 

DD i 

: DF 

A228 

01 

01 

CD 

DD 

A8 

3E 

OF 

DD 

:7E 













A6C0 

36 

00 

07 

DD 

36 

01 

01 

11 : 

: 63 

A230 

77 

00 

3E 

01 

DD 

77 

01 

ED 

:F8 


SUM: 

1A 

EE 

C9 

71 

6C 

27 

5E 

5F : 

: 92 


A6C8 

CB 

AD 

CD 

11 

AO 

CD 

49 

A6 i 

:B2 

A238 

5B 

61 

AC 

CD 

11 

AO 

AF 

32 

:C7 













A6D0 

78 

32 

67 

AC 

DD 

36 

00 

04 ! 

:D4 

A240 

5E 

AC 

32 

5F 

AC 

CD 

94 

A8 

: 50 


A480 

16 

DD 

36 

01 

10 

11 

B1 

AD : 

: A9 


A6D8 

DD 

36 

01 

01 

CD 

DD 

A8 

CD : 

: 34 

A248 

CD 

OE 

AO 

FE 

00 

28 

F9 

32 

: CC 


A488 

CD 

11 

AO 

DD 

36 

00 

16 

DD : 

: 84 


A6E0 

49 

A6 

3A 

67 

AC 

4F 

78 

32 : 

: 35 

A250 

64 

AC 

21 

BC 

AC 

01 

20 

00 

: BA 


A490 

36 

01 

11 

11 

AC 

AD 

CD 

11 :90 


A6E8 

67 

AC 

79 

6F 

26 

00 

29 

29 ! 

: 73 

A258 

ED 

B9 

20 

EC 

79 

FE 

11 

DA 

: 14 


A498 

AO 

DD 

36 

00 

16 

DD 

36 

01 

DD 


A6F0 

29 

E5 

29 

29 

D1 

19 

11 

00 :5B 

A260 

05 

A3 

D6 

11 

16 

00 

5F 

87 

:8B 


A4A0 

12 

11 

B7 

AD 

CD 

11 

AO 

DD 

E2 


A6FS 

99 

19 

E5 

3A 

67 

AC 

6F 

26 i 

: 79 

A268 

83 

5F 

21 

6F 

A2 

19 

E9 

C3 

: D9 


A4A8 

36 

00 

16 

DD 

36 

01 

13 

11 

84 












A270 

OA 

A4 

C3 

06 

A4 

C3 

2B 

A4 

: AD 


A4B0 

BC 

AD 

CD 

11 

AO 

DD 

36 

00 

FA 


SUM: 

13 

AA 

89 

81 

2A 

EE 

8F 

15 : 

: 83 

A278 

C3 

27 

A4 

C3 

33 

A4 

C3 

2F 

: 1A 


A4B8 

16 

DD 

36 

01 

14 

11 

Cl 

AD 

BD 























A4C0 

CD 

11 

AO 

DD 

36 

00 

16 

DD 

84 


A700 

00 

29 

29 

29 

E5 

29 

29 

D1 

83 

SUM: 

EE 

CA 

7D 

6E 

98 

71 

A2 

89 

:D7 


A4C8 

36 

01 

15 

11 

C6 

AD 

CD 

11 

AE 


A708 

19 

11 

00 

99 

19 

D1 

EB 

01 

99 












A4D0 

AO 

06 

10 

CD 

71 

A8 

CD 

8B 

F4 


A710 

28 

00 

ED 

BO 

C3 

EC 

AO 

CD 

El 

A280 

A4 

C3 

D2 

A7 

C3 

47 

A8 

C3 

: 55 


A4D8 

A8 

DD 

36 

00 

14 

DD 

70 

01 

ID 


A718 

97 

A7 

DD 

36 

00 

15 

DD 

36 

79 

A288 

F8 

A7 

C3 

ID 

A8 

C3 

7A 

A4 

: 08 


A4E0 

3E 

3E 

CD 

OB 

AO 

CD 

OE 

AO 

6F 


A720 

01 

10 

11 

E7 

AD 

CD 

11 

AO 

34 

A290 

C3 

D3 

A2 

C3 

9C 

A2 

C3 

5B 

: 57 


A4E8 

FE 

4B 

28 

OA 

FE 

2C 

28 

1C 

E9 


A728 

CD 

1A 

AO 

11 

AC 

AD 

CD 

11 

CF 

A298 

A4 

C3 

6A 

A4 

DD 

36 

00 

09 

: 91 


A4F0 

FE 

OD 

28 

2E 

18 

EO 

DD 

36 

6C 


A730 

AO 

CD 

71 

A8 

DD 

36 

01 

11 

AB 

A2A0 

DD 

36 

01 

14 

3A 

63 

AC 

3C 

: AD 


A4F8 

00 

14 

DD 

70 

01 

3E 

20 

CD 

8D 


A738 

CD 

AD 

A7 

DA 

3F 

A5 

3E 

01 

IE 

A2A8 

FE 

04 

20 

01 

AF 

32 

63 

AC 

: 13 













A740 

CD 

2C 

AO 

FD 

2A 

74 

IF 

FD 

50 

A2B0 

E6 

01 

28 

04 

3E 

2D 

18 

02 

: 98 


SUM: 

58 

06 

E2 

F9 

F7 

E4 

C7 

70 : 

:4B 


A748 

36 

11 

OD 

21 

00 

99 

22 

70 

AO 
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A750 

IF 

21 

FO 

05 

22 

72 

IF 

DD 

:C5 


A990 

BB 

A9 

2A 

5E 

AC 

E5 

2A 

5F 

06 

ABE8 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A758 

36 

00 

15 

DD 

36 

01 

14 

CD 

: 40 


A998 

AC 

E5 

3E 

03 

32 

5F 

AC 

AF 

BE 

ABFO 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A760 

20 

AO 

DA 

3F 

A5 

CD 

23 

AO 

: OE 


A9A0 

32 

5E 

AC 

F5 

CD 

21 

AA 

47 

10 

ABF8 

ED 

78 

20 

05 

FI 

Cl 

C3 

43 

: 42 

A768 

DD 

36 

00 

00 

DD 

36 

01 

15 

:3C 


A9A8 

CD 

19 

A9 

FI 

3C 

06 

04 

BF 

85 











A770 

11 

D3 

AD 

CD 

11 

AO 

C3 

3F 

: 11 


A9B0 

20 

EE 

El 

22 

5F 

AC 

El 

22 

IF 

SUM: 

EO 

2E 

E4 

B1 

E2 

FD 

90 

72 

: 84 

A778 

A5 

CD 

97 

A7 

DD 

36 

00 

15 

:D8 


A9B8 

5E 

AC 

C9 

06 

06 

77 

23 

10 

89 






















A9C0 

FC 

C9 

3A 

60 

AC 

87 

87 

82 

9B 

ACOO 

AA 

FI 

Cl 

C3 

43 

AA 

35 

00 

: 41 

SUM: 

IE 

59 

BC 

D5 

28 

A9 

09 

B8 

:6A 


A9CS 

57 

26 

03 

F3 

01 

00 

00 

7A 

EE 

AC08 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 












A9D0 

ED 

79 

00 

03 

7B 

00 

00 

ED 

D1 

AC 10 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A780 

DD 

36 

01 

10 

CD 

26 

AO 

DA 

: 91 


A9D8 

79 

00 

01 

02 

00 

7A 

ED 

79 

5C 

AC 18 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A788 

3F 

A5 

DD 

36 

00 

15 

CD 

2F 

: 08 


A9E0 

00 

03 

7B 

00 

00 

ED 

79 

00 

E4 

AC20 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A790 

AO 

CD 

29 

AO 

C3 

98 

A5 

06 

:3C 


A9E8 

14 

00 

00 

00 

25 

20 

DD 

FB 

31 

AC28 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A798 

08 

DD 

36 

01 

10 

DD 

36 

00 

:3F 


A9F0 

3A 

5F 

AC 

FE 

03 

28 

05 

FE 

71 

AC 30 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A7A0 

14 

1 1 

D3 

AD 

CD 

11 

AO 

CD 

: FO 


A9F8 

00 

28 

15 

C9 

3A 

60 

AC 

4F 

9B 

AC38 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A7A8 

14 

AO 

10 

FI 

C9 

DD 

36 

00 

: 91 


— 

— 







— 

— 

AC40 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A7B0 

15 

21 

76 

IF 

5E 

23 

56 

CD 

:6F 


SUM: 

5A 

OF 

45 

B2 

72 

70 

EO 

69 : 

:8B 

AC48 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A7B8 

ID 

AO 

1A 

FE 

IB 

20 

02 

37 

: 49 












AC50 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A7C0 

C9 

21 

15 

00 

19 

E5 

AF 

4F 

: FB 


AAOO 

06 

00 

21 

37 

AC 

09 

06 

06 ! 

: IF 

AC58 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A7C8 

BE 

28 

04 

23 

OC 

18 

F9 

D1 

: FB 


AA08 

73 

23 

23 

23 

23 

10 

F9 

C9 ! 

: D1 

AC60 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

A7D0 

B7 

C9 

3 A 

5F 

AC 

FE 

02 

DA 

:9F 


AA10 

21 

68 

AC 

16 

00 

3E 

07 

A3 : 

: 33 

AC68 

08 

08 

08 

08 

OC 

OE 

OE 

OF 

: 57 

A7D8 

48 

A2 

FE 

OB 

D2 

48 

A2 

3A 

:E9 


AA18 

5F 

19 

7E 

21 

55 

AC 

C3 

BB : 

: 96 

AC70 

07 

23 

BO 

38 

23 

BO 

OF 

OB 

: FF 

A7E0 

5E 

AC 

3D 

FE 

FF 

20 

02 

3E 

: A4 


AA20 

A9 

21 

70 

AC 

3A 

5F 

AC 

16 : 

: 41 

AC78 

30 

7F 

OF 

40 

IF 

13 

50 

IF 

:9F 

A7E8 

03 

CD 

AA 

A8 

32 

5E 

AC 

CD 

:2B 


AA28 

00 

5F 

87 

83 

5F 

19 

46 

23 : 

:4A 











A7F0 

94 

A8 

CD 

8B 

A8 

C3 

48 

A2 

:E9 


AA30 

5E 

2A 

61 

AC 

19 

3A 

5E 

AC i 

! F2 

SUM: 

E9 

9B 

88 

43 

91 

7B 

A2 

39 

: 36 

A7F8 

3A 

5F 

AC 

FE 

02 

DA 

48 

A2 

: 09 


AA38 

CB 

3F 

30 

02 

CB 

CF 

5F 

19 ; 

:4E 






















AA40 

78 

A6 

C9 

08 

D9 

3E 

01 

32 i 

! 39 

AC80 

17 

60 

IF 

IB 

70 

FO 

IF 

80 

BO 

SUM: 

D3 

2B 

61 

5E 

2D 

3F 

00 

63 

:8C 


AA48 

5C 

AC 

01 

02 

00 

3E 

27 

00 : 

: 70 

AC88 

OF 

IF 

80 

70 

OB 

30 

CO 

13 

2C 












AA50 

00 

00 

00 

00 

00 

ED 

79 

00 : 

: 66 

AC90 

50 

01 

24 

00 

FF 

25 

01 

7F 

19 

A800 

FE 

OB 

D2 

48 

A2 

3A 

5E 

AC 

: 09 


AA58 

03 

3A 

06 

AC 

00 

ED 

79 

00 : 

: 55 

AC98 

26 

02 

FF 

27 

03 

31 

51 

57 

2A 

A808 

3C 

FE 

04 

20 

01 

AF 

CD 

AA 

: 85 


AA60 

OE 

00 

06 

00 

21 

2B 

AC 

09 : 

! 15 

ACAO 

33 

45 

34 

52 

54 

36 

59 

37 

18 

A810 

A8 

32 

5E 

AC 

CD 

94 

A8 

CD 

: BA 


AA68 

56 

AF 

BE 

CA 

60 

AB 

21 

19 : 

:D2 

ACA8 

55 

38 

49 

4F 

30 

50 

41 

5A 

40 

A818 

SB 

A8 

C3 

48 

A2 

CD 

AA 

A8 

: FF 


AA70 

AC 

09 

BE 

28 

04 

35 

C3 

60 : 

i F7 

ACBO 

53 

58 

44 

43 

4D 

2C 

2E 

4B 

24 

A820 

3 A 

5F 

AC 

3D 

FE 

FF 

20 

04 

: A3 


AA78 

AB 

21 

25 

AC 

09 

BE 

28 

04 : 

: 90 

ACB8 

OD 

20 

4E 

46 

56 

26 

02 

47 

86 

A828 

3E 

OE 

18 

OF 

FE 

01 

20 

OB 

:9D 












ACCO 

02 

69 

02 

8E 

02 

B5 

02 

DE 

92 

A830 

47 

3A 

5E 

AC 

FE 

01 

78 

38 

:3A 


SUM: 

5D 

F2 

6D 

C2 

08 

A3 

4A 

E3 : 

: 56 

ACC8 

02 

OA 

03 

38 

03 

69 

03 

9D 

53 

A838 

02 

3E 

OA 

32 

5F 

AC 

CD 

94 

:E8 












ACDO 

03 

D4 

03 

OE 

04 

4C 

04 

8D : 

:C9 

A840 

A8 

CD 

8B 

A8 

C3 

48 

A2 

CD 

: 22 


AA80 

35 

C3 

60 

AB 

21 

31 

AC 

09 : 

OA 

ACD8 

04 

D3 

04 

1C 

05 

6A 

05 

4E ; 

:B9 

A848 

AA 

A8 

3A 

5F 

AC 

3C 

FE 

OF 

: EO 


AA88 

7E 

21 

25 

AC 

09 

77 

21 

13 : 

: 24 

ACEO 

4F 

OD 

20 

20 

20 

20 

20 

20 i 

: 1C 

A850 

20 

03 

AF 

18 

10 

FE 

OB 

20 

: 23 


AA90 

AC 

09 

7E 

BA 

28 

05 

82 

28 : 

C4 

ACE8 

20 

20 

20 

20 

20 

20 

31 

20 i 

: 11 

A858 

OC 

47 

3A 

5E 

AC 

FE 

01 

78 

: OE 


AA98 

02 

18 

07 

21 

IF 

AC 

09 

7E : 

i 94 

ACFO 

20 

20 

20 

32 

20 

20 

20 

20 : 

: 12 

A860 

DA 

65 

A8 

3E 

02 

32 

5F 

AC 

: 64 


AAAO 

2F 

77 

21 

IF 

AC 

09 

7E 

21 : 

3A 

ACF8 

33 

20 

20 

20 

20 

34 

OD 

20 : 

: 14 

A868 

CD 

94 

A8 

CD 

8B 

A8 

C3 

48 

: 14 


AAA8 

13 

AC 

09 

86 

77 

5F 

32 

5B : 

: B1 











A870 

A2 

C5 

06 

03 

CD 

OE 

AO 

FE 

:E9 


AABO 

AC 

21 

4F 

AC 

09 

AF 

BE 

CA : 

08 

SUM: 

51 

FE 

5D 

5E 

32 

B6 

87 

62 : 

: DB 

A878 

00 

20 

F7 

10 

F7 

Cl 

C9 

E5 

:8D 


AAB8 

07 

AB 

C5 

21 

55 

AC 

09 

EB : 

iBD 






















AACO 

CB 

21 

CB 

21 

21 

37 

AC 

09 : 

E5 

ADOO 

43 

4F 

4E 

4E 

45 

43 

54 

20 i 

:2A 
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F5 

65 
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21 

E7 
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39 

FI 

: CA 
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CB 

39 

CB 

39 

CB 

39 

38 
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AD08 

20 

20 

20 

20 

20 

20 

20 

2D ! 

: OD 
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3E 

40 

81 

01 

00 

00 
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IE 
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2D 
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20 

20 
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64 
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OE 

AO 

BE 
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AAD8 

3E 

40 

81 

01 

02 

00 

F5 
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11 
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2D 

2D 
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OD 
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46 

2E 

48 

A888 

FA 
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C9 
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70 

17 

2B 

7C 

:F3 


AAEO 

57 

FI 

IE 

04 

CB 

3A 

30 
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B4 

AD20 

42 

41 

43 

4B 
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20 

20 

20 

91 
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FB 
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F5 

C5 

CD 

CO 

: EO 
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20 
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2D 
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2D 

2D 

2D 

20 
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2D 

34 
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00 

3E 

5D 

CD 

OB 

AO 

Cl 

: 4B 
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ED 
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OD 

FI 
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51 
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20 

4D 

55 
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54 
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C9 

F5 
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CD 

CO 

A8 

3E 
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49 

50 

4C 

45 

OD 

20 

54 

2E 

D9 

A8B0 

20 

CD 

OB 

AO 

78 

DD 

77 

00 

: 64 
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25 
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06 

D6 

44 

62 
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99 
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4C 

45 

56 

45 

4C 
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20 

41 
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20 
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FI 
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AB28 

CB 

41 

28 

05 

01 

02 

00 

18 : 

54 
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ED 
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47 

AF 

BA 
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: DD 
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00 

00 

00 
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ED 

59 

00 

Cl : 

07 
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54 

OD 

20 

44 

45 

45 

50 

E8 

A908 

FE 

30 

20 

04 

3E 

20 

18 

02 

: CA 


AB60 

OC 

3E 

06 

B9 

C2 

62 

AA 

AF : 86 

ADAO 

OD 

20 

53 

54 

45 

50 

OD 

20 

96 

A910 

16 

01 

CD 

OB 

AO 

78 

OE 

30 

: 45 


AB68 

32 

5C 

AC 

3A 

5D 

AC 

FE 

00 : 

7B 

ADA8 

4F 

43 

54 

OD 

4E 

41 

4D 

45 

14 

A918 

C9 

3A 

5E 

AC 

5F 

87 

87 

83 

: FD 
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20 

05 

08 

D9 

FB 

ED 

4D 

08 : 

43 

ADBO 

OD 

4E 

45 

49 

52 

4F 

OD 

4C 

E3 

A920 

C6 

OB 

DD 

77 

00 

3A 

5F 

AC 

:6A 


AB78 

D9 

FB 

C9 

01 

02 

00 

3E 

25 : 

03 

ADBB 

4F 

41 

44 

OD 

53 

41 

56 

45 

10 

A928 

C6 

03 

FE 

OE 

38 

01 

3C 

DD 

: 27 












ADCO 

OD 

43 

4F 

50 

59 

OD 

45 

58 

F2 

A930 

77 

01 

21 

70 

AC 

3A 

5F 

AC 

: FA 


SUM: 

6A 

60 

77 

AE 

48 

13 

B5 

17 : 

16 

ADCB 

49 

54 

OD 

3E 

3D 

OD 

20 

20 

72 

A938 

16 

00 

5F 

87 

83 

5F 

19 

7E 

: 75 












ADDO 

20 

20 

20 

20 

20 

20 

20 

20 

00 

A940 

4F 

AO 

47 

C5 

CB 

39 

38 

04 

:3B 


AB80 

ED 

79 

00 

03 

AF 

00 

00 

ED : 

05 

ADD8 

20 

20 

20 

20 

20 

20 

20 

20 

00 

A948 

CB 

3F 

18 

F8 

Cl 

CD 

DD 

A8 

:2D 


AB88 

79 

00 

OB 

3E 

24 

00 

00 

00 : 

E6 

ADEO 

20 

20 

20 

20 

20 

20 

OD 

46 

13 

A950 

23 

5E 

E5 

2A 

61 

AC 

19 

3A 

: FO 


AB90 

00 

00 

00 

00 

00 

00 

00 

00 : 

00 

ADE8 

49 

4C 

45 

OD 

3D 

3D 

3D 

3D 

DB 

A958 

5E 

AC 

CB 

3F 

30 

02 

CB 

CF 

: EO 


AB98 

00 

00 

00 

00 

00 

00 

00 

ED : 

ED 

ADFO 

3D 

3D 

3D 

OD 

FB 

C3 

DO 

IF 

71 

A960 

32 

60 

AC 

5F 

19 

79 

2F 

A6 

: 04 


ABAO 

79 

00 

03 

3E 

6E 

00 

ED 

79 :8E 











A968 

BO 

77 

El 

23 

5F 

56 

3E 

03 

: 21 


ABA8 

00 

OB 

3E 

27 

00 

00 

00 

00 : 

70 

SUM: 

28 

86 

2A 

4F 

5E 

AO 

AB 

ID : 

!ED 

A970 

BA 

38 

4F 

28 

OF 

3D 

BA 

28 

: 97 


ABBO 

00 

00 

00 

00 

00 

00 

00 

00 :00 











A978 

12 
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28 

45 

7B 

21 

4F 

: 61 
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00 

00 

ED 

79 : 

66 
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06 
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00 
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79 : 

55 
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47 

A7 

21 

47 

:3E 
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F5 

01 

02 

00* 

3E : 

C4 
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27 











A980 
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7B 

21 

31 

AC 

:4C 


ABD8 
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ED 

79 
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03 

3A 

06 

AC : 

55 











A988 

C3 

BB 

A9 

7B 

21 

2B 

AC 

CD 

: 67 


ABEO 

ED 

79 

00 

OB 

00 

00 

00 

00 :71 
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A05F CD17A0 
A062 7C 
A063 FEOO 
A065 CA81A0 
A068 FE01 
A06A CA99A0 
A06B FE02 
A06F CABCAO 
A072 FEIO 
A074 CAA1A0 
A077 FE11 
A079 CAC2A0 
A07C FE20 
A07E CAC8A0 
A081 
A0B1 00 
A082 00 


( EQU TBL 
5 

0PN40: EQU 

0PN41* EQU 
TLSAOR: EQU 
SABRSO* EQU 
IO«B: EQU 

FNHSAD* EQU 
FNLSAD* EQU 
KESAOR* EQU 
OBATAS: EQU 
•XYADR* EQU 
•KBFAD* EQU 
•IBFAD: EQU 
(♦SIZE: EQU 

•DTADR 
•VERO: 
•VER1* 
•VER2* 
•VER4* 
•VERS* 
•VERS* 
CHRCLS: EQU 
ODATA: EQU 

0BATA2: EQU 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


EQU 

EQU 

EQU 

EQU 


CP8253* 

PITMO: 

I REG* 

VREG* 
IREGX1* 
VREGXl: 
DATASU: EQU 
BATALO: EQU 
CHRCR: 
COMJP: 
MOJPL* 
MOJPH: 

PI00AT: EQU 
PIOCOM: EQU 
PI0MD1: EQU 
PIOIE: EQU 

CHRTEN: EQU 
CHRZER* EQU 
KEYSUU: EQU 
NQTEKY: EQU 
CHRMIN: EQU 
CHRPUR: EQU 
SWTOF: EQU 

SALLON: EQU 
ODMID* EQU 
CHRBAI: EQU 
CHRK: EQU 

CHRCQN: EQU 
CHRSPC: EQU 
CHRCOR: EQU 
OBJlNF* EQU 
CHRBRK: EQU 
CHRDCQ: EQU 
CHRBCC: EQU 
KEYWSU: EQU 
X1JPTB: EQU 


INT JP TBL 


LB 

LB 


HAJIM2* LB 
ABD 
DJNZ 


PUSH 

POP 

CALL 


40H 

4 

OFH 

A4H 

AOH 

28H 

1520 

1F78H 

1F76H 

1F74H 

1F72H 

1F70H 

OOH 

01H 

02H 

10H 

UH 

20H 

OCH 

9900H 

990AH 

E007H 

BOH 

AOH 

06H 

OOH 

54H 

38 

0040 

ODH 

C3H 

1038H 

1039H 

007CH 

007BH 

4FH 

F3H 

2EH 

30H 

32 

17 


FOH 

760 

3EH 

4BH 

2CH 

20H 

3AH 

1 

1BH 
5BH 
5BH 
6000 
0054H 

AOOOH 

COLDHA 

HAJIME 


DEFW INTOPN 


5 JP TBL 
j 

EXIT* JP 
♦♦PRINT* JP 
•GETKY* JP 
•MSB* JP 
«LTNL: JP 
•VERs JP 
•PRNTS: JP 
•GETL: JP 
•WRI: JP 
•WRD* JP 
•RDI: JP 
•RDD: JP 
♦♦FILE: JP 
•FPRNT: JP 
; 


COLBHA* LB 


INC 

LB 

DEC 

LDIR 

HAJIME: CALL 
XOR 


OOOOH 

1FF4H 

EIGKEY 

1FE8H 

1FEEH 

1FF7H 

1FF1H 

1FB3H 

1FAFH 

1FACH 

1FA9H 

1FA6H 

1FA3H 

1F9DH 


HL»ODATA 
(HL >»O 
DE,ODATA 
DE 

BC,ODATAS 


LFOSS 

A 

(DATNO)» A 
HL.0DATA2 
DE, DATALO 
B,DATASU 
A,CHRCR 
< HL) > A 
HL,DE 
HAJI M2 
HL,4XYADR 
E,(HL) 

HL 

D,(HL) 

DE 

IX 

•VER 

A»H 

•VERO 

Z«MZ80 

•VER1 

Z,MZ700 

•VER2 

Z,MZ1500 

•VER4 

Z , MZBOB 

•VER5 

Z,MZ2000 


(0PN40 I/O POTE 
;0PN#1 I/O POTE 
(TOTAL LEVEL SUB ADR 
(SUB ADR SRIDE DATA 
(I/D B SUB ADR 
JF.NO HIGH SUB ADR 
(F.NO LOW SUB ADR 
(KEY ON/OFF SUB ADR 
JO DATA SIZE 
(CURSOR ADR 
(KEY B ADR(BETL) 

(INF BLOCK 
(FILE SIZE 
(FILE TOP ADR 
JMZ-80K 
(MZ-700 
(MZ—1500 
(MZ-80B 
(MZ-2000 
(XI 

(CRT CLEAR 
(NEIRO DATA TOP ADR. 
(NEIRO DATA 2 
(8253 CONT ADR. 

(8253,C2,MO 
(M2 INT ADR HIGH 
(M2 INT ADR LOW 
(XI M2 INT ADR HIBH 
(XI M2 INT ADR LOW 
(DATA SUU 
(DATA LONG 
(CR 

(JP COMMAND 
(MO JP ADR(JP) 

(MO JP ADR2(ADR.) 

(PIO DATA I/O 

(PIO COMMAND I/O 

(PIO Ml CONTROLE COMMAND 

(PIO INT E 

J. 

(O 

(USR KEY SUU 
(NOTE KEY SUU 


(STEP WAIT OFFSET 

(SLOT ALL ON 

(OTO DATA MID OFFSET 


(K 

Si 

J SPACE 

(COLON 

(INF OBJ 

(SIFT+BREAK 

SC 

(3 


(MZ-80K/C/1200 
MZBO* NOP 
NOP 


Z,X1 


0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 


AO 83 
A084 
A086 
A089 
A08B 
A08E 
A091 
A094 
A096 
A099 
A099 
A09A 
A09B 
A09C 
A09E 
AO A1 
A0A3 
A0A5 
A0A8 
AOAA 
AOAC 
AOAD 
AOAF 
AOB1 
A0B2 
A0B4 
A0B6 
A0B7 
A0B9 
AOBC 
AOBC 
AOBD 
AOBE 
AOBF 
A0C2 
A0C2 
AOC3 
A0C4 
A0C5 
A0C8 
A0C8 
A0C9 
AOCA 
AOCB 
AOCD 
AOCF 
A0D2 
A0D4 
A0D6 
A0D7 
A0D9 
AODB 
AODC 
AODE 
AOEO 
AOE1 
A0E4 
A0E7 
A0E9 
AOEC 
AOEC 
AOEC 
AOED 
AOEF 
A0F2 
A0F6 
AOFA 
AOFD 
AlOO 
A103 
A106 
A109 
AlOC 
A10F 
A112 
A115 
A118 
AUB 
AUE 
A121 
A124 
A127 
A12A 
A12D 
A130 
A133 
A136 
A139 
A13C 
A13F 
A142 
A145 
AMS 
A14B 
A14E 
A151 
A154 
A157 
A15A 
A15D 
A160 
A163 
A166 
A169 
A16C 
A16F 
A172 
A175 
A179 
A17B 
A17E 
A181 
A184 
A187 
A18A 
A18D 
A190 
A193 
A196 
A199 
A19C 
A19F 
A1A2 
A1AS 
A1A5 
A1A5 
A1A8 
A1AA 
A1AB 
A1 AC 
A1AD 
A1AE 
A1AF 
A1B0 
A1BI 


OO 

3EB0 

32O7E0 

3EC3 

323810 

21CAAB 

223910 

ED56 

C3ECA0 

00 

00 

00 

3EB0 

3207E0 

3EA0 

ED47 

O17DO0 

3E4F 

ED79 

00 


00 

00 

3EOO 

ED47 

017D00 

3E4F 

ED79 

OO 


OO 

21CAAB 

225400 

ED5E 

C3ECA0 


FB 

3E0C 

CDOBAO 

DD360002 

DD360101 

1 IDFAC 

CDUAO 

CD14A0 

11E2AC 

CDUAO 

CD MAO 

1IFFAC 

CDliAO 

CD14A0 

111DAD 

CD11A0 

CD14A0 

113BAD 

CDUAO 

CD MAO 

1145AD 

CDUAO 

CD MAO 

114EAD 

CDUAO 

CD MAO 

1156AD 

CDUAO 

CD14AO 

115EAD 

CDUAO 

CD14A0 

U66AD 

CDUAO 

CD14AO 

116FAD 

CDUAO 

CD14AO 

1177AD 

CDUAO 

CD MAO 

U7FAD 

CDUAO 

CD14AO 

1188AD 

CDUAO 

CD14A0 

11SCAD 

CDUAO 

CD14A0 

1193AD 

CDUAO 

CD14AO 

119BAD 

CDUAO 

CD14AO 

11A1AD 

CDUAO 

CD MAO 

CD14A0 

11A7AD 

CDUAO 


IM 

JP 

{MZ-700 
MZ700: NOP 

NOP 
NOP 
LD 
LD 

MZ80B: LD 


(MZ-1500 
MZISOO: NOP 
NOP 


NOP 

JP 

| XI HENKDU 
XI: NOP 

NOP 
NOP 


LD 

LD 


A.PITMO 
(CP8253),A 
A,COMJP 
(MOJPL),A 
HL,INTOPN 
(MOJPH),HL 
1 

CRTMAK 


A.P1TM0 
(CP8253),A 
A,IREG 
I,A 

BC,PIOCOM 
A,PI0MD1 
(C) ,A 

A,VRE6 
(C> ,A 

A,PIOIE 
(C) ,A 


CALL 

CALL 

CALL 


ADD 

ADD 

ADD 

PUSH 


A,IREGX1 
I,A 

BC,PIOCOM 
A,PI0MD1 
(C) , A 

A,VREGXl 
(C) ,A 

A,PIOIE 
(C) , A 

HL,INTOPN 
(X1JPTB),HL 


A,CHRCLS 

•PRINT 

(IX-fO) ,2 

(IX+1),1 

DE,M1 

•MSG 

•LTNL 

DE,M2 

•MSG 

•LTNL 

D£,M3 

•MSG 

•LTNL 

DE,M4 

•MSG 

•LTNL 

DE,M5 

•MSG 

•LTNL 

DE,M6 

•MSG 

•LTNL 

DE,M7 

•MSG 

•LTNL 

D£,M8 

•MSG 

•LTNL 

DE,M9 

•MSG 

•LTNL 

DE,M10 

•MSG 

•LTNL 

DE,M11 

•MSG 

•LTNL 

DE.M12 

•MSB 

•LTNL 

DE,M13 

•MSG 

•LTNL 

DE,M14 

•MSG 

•LTNL 

DE,M15 

•MSG 

•LTNL 

DE,M16 

•MSG 

•LTNL 

DE,M17 

•MSB 

•LTNL 

DE,M18 

•MSG 

•LTNL 

•LTNL 

DE.M19 

•MSG 


A,(DATNO) 

H,0 

L, A 

HL.HL 

HL ,HL 

HL,HL 

HL 


(DATA ADR SET 


$0^7-CRTi:^$n/w* r Make ready CMTj fc l'5 “iStfclfe 
£ i 6 SJjg (16) liiPi# 


FM 153 








0271* 

A1B2 

19 

ADD 

HL,DE 




0272* 

A1B3 

110099 

LD 

DE,ODATA 




0273* 

A1B6 

19 

ADD 

HL.DE 




0274* 

A1B7 

2261AC 

LD 

(DATADR),HL 




0275* 

A1BA 

3E04 

LD 

A,4 




0276* 

A1BC 

3265AC 

LD 

(OCT),A 




0277* 

A1BF 

DD360007 

LD 

(IX+O),7 




0278* 

A1C3 

DD360114 

LD 

(IX+1),20 




0279* 

AIC7 

3E34 

LD 

A, 34H 




0280* 

A1C9 

CDOBAO 

CALL 

•PRINT 




0281* 

A1CC 

DD360009 

LD 

(IX+O),9 




0282* 

A1D0 

DD360114 

LD 

(IX+1),20 




0283* 

A1D4 

3E2E 

LD 

A.CHRTEN 




0284* 

A1D6 

CDOBAO 

CALL 

•PRINT 




0283* 

A1D9 

3E30 

LD 

A.CHRZER 




0286* 

A1DB 

CDOBAO 

CALL 

•PRINT 




0287* 

AIDE 

AF 

XOR 

A 




0288* 

A1DF 

325EAC 

LD 

(CURXS),A 




0289* 

A1E2 

325FAC 

LD 

(CURYS),A 




0290* 

A1E5 

3263AC 

LD 

(NOBASU),A 




0291* 

A1E8 

3266AC 

LD 

(PARTNO),A 




0292* 

A1EB 

F5 

CRTML1 * PUSH 

AF 

jKAKU 

DATA 

PR I NT*. WRITE 

0293* 

A1EC 

CD21AA 

CALL 

DATOUT 




0294* 

A1EF 

00 

NOP 





0295* 

A1F0 

47 

LD 

B, A 




0296* 

A1F1 

CD19A9 

CALL 

DATINP 




0297* 

A1F4 

FI 

POP 

AF 




0298* 

A1F5 

3C 

INC 

A 




0299* 

A1F6 

325FAC 

LD 

(CURYS),A 




0300* 

A1F9 

FEOF 

CP 

15 




0301* 

A1FB 

20EE 

JR 

NZ,CRTML1 




0302* 

A1FD 

0601 

LD 

B, 1 

JKAKU 

DATA 

PRINT*.WRITE 2 

0303* 

A1FF 

78 

CRTML3* LD 

A,B 




0304* 

A200 

325EAC 

LD 

(CURXS),A 




0305* 

A203 

0E02 

LD 

C,2 




0306* 

A205 

79 

CRTML2* LD 

A,C 




0307* 

A206 

323FAC 

LD 

(CURYS),A 




0308* 

A209 

C3 

PUSH 

BC 




0309* 

A20A 

CD21AA 

CALL 

DATOUT 




0310* 

A20D 

00 

NOP 





0311* 

A20E 

47 

LD 

B,A 




0312* 

A20F 

CD19A9 

CALL 

DATINP 




0313* 

A212 

Cl 

POP 

BC 




0314* 

A213 

OC 

INC 

C 




0315* 

A214 

3E0B 

LD 

A,11 




0316* 

A216 

B9 

CP 

C 




0317* 

A217 

20EC 

JR 

NZ.CRTHL2 




0318* 

A219 

04 

INC 

B 




0319* 

A21A 

3E04 

LD 

A,4 




0320* 

A21C 

B8 

CP 

B 




0321* 

A21D 

20E0 

JR 

NZ.CRTML3 




0322* 

A21F 

3A67AC 

LD 

A,(DATNO) 

>DATADR KEISAN&N.PRINT 

0323* 

A222 

DD360004 

LD 

(IX+O),4 




0324* 

A226 

DD360101 

LD 

(IX+1),1 




0325* 

A22A 

CDDDA8 

CALL 

PR10 




0326* 

A22D 

3E0F 

LD 

A,13 




0327* 

A22F 

DD7700 

LD 

(IX+O),A 




0328* 

A232 

3E01 

LD 

A, 1 




0329* 

A234 

DD7701 

LD 

(IX + 1) ,A 




0330* 

A237 

ED5B61AC 

LD 

DE,(DATADR) 




0331* 

A23B 

CD11A0 

CALL 

•MSS 




0332* 

A23E 

AF 

XOR 

A 




0333* 

A23F 

325EAC 

LD 

(CURXS),A 




0334* 

A242 

323FAC 

LD 

(CURYS),A 




0333* 

A245 

CD94A8 

CALL 

CURSET 




0336* 

A248 


1 





0337* 

A248 


| KEY INPUT 





0338* 

A248 

7 

1 





0339* 

A248 

CDOEAO 

INKEY* CALL 

•QETKY 




0340: 

A24B 

FEOO 

CP 

0 




0341* 

A24D 

28F9 

JR 

Z,INKEY 




0342* 

A24F 

3264AC 

LD 

(KEYB),A 




0343* 

A2S2 

21BCAC 

LD 

HL.KEYDAT 




0344* 

A255 

012000 

LD 

BC,KEYSUU 




0343* 

A258 

EDB9 

CPDR 





0346* 

A25A 

20EC 

JR 

NZ,INKEY 




0347* 

A25C 

79 

LD 

A,C 




0348* 

A2SD 

FE11 

CP 

NOTEKY 




0349* 

A25F 

DA05A3 

JP 

C,KYNOTE 




0330* 

A262 

D611 

SUB 

NOTEKY 




0351* 

A264 

1600 

LD 

D,0 




0352* 

A266 

5F 

LD 

E, A 




0333* 

A267 

87 

ADD 

A,A 




0354* 

A268 

83 

ADD 

A,E 




0355* 

A269 

5F 

LD 

E, A 




0356* 

A26A 

216FA2 

LD 

HL,KYJPT 




0357* 

A26D 

19 

ADD 

HL,DE 




0358* 

A26E 

E9 

JP 

(HL) 




0359* 

A26F 

C30AA4 

KYJPT * JP 

KYOUP 




0360* 

A272 

C306A4 

JP 

KYODW 




0361* 

A273 

C32BA4 

JP 

KYDUP 




0362* 

A278 

C327A4 

JP 

KYDDW 




0363* 

A27B 

C333A4 

JP 

KYDHUP 




0364* 

A27E 

C32FA4 

JP 

KYDHDW 




0363* 

A281 

C3D2A7 

JP 

KYCLF 




0366* 

A284 

C347AB 

JP 

KYCDW 




0367* 

A2B7 

C3F8A7 

JP 

KYCRI 




0368* 

A28A 

C31DA8 

JP 

KYCUP 




0369* 

A28D 

C37AA4 

JP 

KYCR 




0370* 

A290 

C3D3A2 

JP 

KYSPC 




0371* 

A293 

C39CA2 

JP 

KYNOBA 




0372* 

A296 

C33BA4 

JP 

KYNEUP 




0373* 

A299 

C36AA4 

JP 

KYNEDW 




0374* 

A29C 


1 





0373* 

A29C 


• KEY NOBASU/NOBASANAI CH 




0376* 

A29C 


I 





0377* 

A29C 

DD360OO9 

KYNOBAt LD 

(IX+O),9 




0378* 

A2A0 

DD360114 

LD 

(IX+1),20 




0379* 

A2A4 

3A63AC 

LD 

A,(NOBASU) 




0380* 

A2A7 

3C 

INC 

A 




0381* 

A2A8 

FE04 

CP 

4 




0382* 

A2AA 

2001 

JR 

NZ.KYNBL3 




0383* 

A 2 AC 

AF 

XOR 

A 




0384* 

A2AD 

3263AC 

KYNBL3* LD 

(NOBASU),A 




0385* 

A2B0 

E601 

AND 

1 




0386* 

A2B2 

2804 

JR 

Z.KYNBH 




0387* 

A2B4 

3E2D 

LD 

A.CHRMIN 




0388* 

A2B6 

1802 

JR 

KYNBL2 




0389* 

A2B8 

3E2E 

KYNBL1* LD 

A.CHRTEN 




0390s 

A2BA 

CDOBAO 

KYNBL2* CALL 

•PRINT 




0391* 

A2BD 

3A63AC 

LD 

A,(NOBASU) 




0392* 

A2C0 

E602 

AND 

2 




0393* 

A2C2 

2804 

JR 

Z.KYNBL4 




0394* 

A2C4 

3E2B 

LD 

A,CHRPUR 




0395* 

A2C6 

1802 

JR 

KYNBL5 




0396* 

A2C8 

3E30 

KYNBL4* LD 

A.CHRZER 




0397* 

A2CA 

CDOBAO 

KYNBL5* CALL 

•PRINT 




0398* 

A2CD 

CD71A8 

CALL 

BETKWT 




0399* 

A2D0 

C348A2 

JP 

INKEY 




0400* 

A2D3 


< 





0401* 

A2D3 


5 NOBASU STOP 





0402* 

A2D3 


t 





0403* 

A2D3 

1600 

KYSPC* LD 

D,0 




0404* 

A2D5 

F3 

DI 





0405* 

A2D6 

01OOOO 

KYSPC1* LD 

BC.0PN40 




0406* 

A2D9 

3E28 

LD 

A.KESADR 




0407* 

A2DB 

ED79 

OUT 

(C) , A 




0408* 

A2DD 

OO 

NOP 





0409* 

A2DE 

03 

INC 

BC 




0410* 

A2DF 

7A 

LD 

A,D 





0411* A2E0 00 
0412t A2E1 00 
0413i A2E2 ED79 
0414i A2E4 00 
0413« A2E3 010200 
04161 A2E8 3E28 
0417* A2EA ED79 
0418t A2EC 00 
0419* A2ED 03 
0420i A2EE 7A 
0421» A2EF 00 
04221 A2F0 00 
0423« A2FI ED79 
0424i A2F3 00 
0423* A2F4 14 
0426* A2F5 3E03 
0427* A2F7 00 
0428* A2F8 00 
0429* A2F9 00 
0430* A2FA BA 
0431* A2FB 20D9 
0432* A2FD FB 
0433* A2FE AF 
0434* A2FF 3266AC 
0435* A302 C348A2 
0436* A303 
0437* A303 
0438* A305 
0439* A303 87 
0440* A306 1600 
0441* A308 5F 
0442* A309 21BDAC 
0443* A30C 19 
0444* A30D 5E 
0445* A30E 23 
0446* A30F 36 
0447* A310 3A63AC 
0448* A313 87 
0449* A314 87 
0450* A315 87 
0431* A316 B2 
0452* A317 37 
0433* A318 2600 
0434* A31A 3A66AC 
0433* A31D 87 
0456* A31E 6F 
0457* A3IF 0107AC 
0438* A322 09 
0439* A323 73 
0460* A324 23 
0461* A323 72 
0462* A326 3A66AC 
0463* A329 CB47 
0464* A32B 2805 
0463: A32D 010200 
0466* A330 1803 
0467* A332 010000 
0468* A33S CB3F 
0469* A337 C6A4 
0470* A339 F3 
0471* A33A ED79 
0472* A33C 00 
0473* A33D 03 
0474* A33E 7A 
0473* A33F 00 
0476* A340 00 
0477* A341 ED79 
0478* A343 00 
0479* A344 OB 
0480* A345 3A66AC 
0481* A348 CB3F 
0482* A34A C6A0 
0483* A34C OOOO 
0484* A34E 0000 
0483* A350 0000 
0486* A332 0000 
0487* A334 0000 
0488* A336 0000 
0489* A33B 0000 
0490* A35A OOOO 
0491* A33C OOOO 
0492* A35E ED79 
0493* A360 00 
0494* A361 03 
0495* A362 7B 
0496* A363 00 
0497* A364 00 
0498* A365 ED79 
0499s A367 00 
0300* A368 3A66AC 
0301* A36B 1600 
0502* A36D 3F ' 
0303* A36E AF 
0304* A36F 2113AC 
0305* A372 19 
0506* A373 77 
0507* A374 2123AC 
0308* A377 19 
0309* A378 77 
0310* A379 3C 
0311* A37A 211FAC 
0512* A37D 19 
0313* A37E 77 
0514* A37F 2A61AC 
0313* A382 112300 
0316* A385 19 
0317* A386 C5 
0318* A3B7 46 
0319* A388 3A66AC 
0320* A38B 1600 
0321* A38D 3F 
0522* A38E 2U9AC 
0323* A391 19 
0524* A392 70 
0325* A393 Cl 
0326* A394 OB 
0327* A395 3E28 
0528* A397 ED79 
0529* A399 00 
0330* A39A 03 
0531* A39B 3A63AC 
0332* A39E E601 
0333* A3A0 282B 
0334* A3A2 3A66AC 
0333* A3A5 CB3F 
0336* A3A7 ED79 
0337* A3A9 00 
0538* A3AA 3A66AC 
0339* A3AD CB3F 
0540* A3AF C6F0 
0341* A3B1 OOOO 
0342* A3B3 OOOO 
0343* A3B3 OOOO 
0344* A3B7 OOOO 
0345* A3B9 OOOO 
0346* A3BB OOOO 
0347* A3BD OOOO 
0348* A3BF OOOO 
0549* A3C1 OOOO 
0330* A3C3 00 


NOP 

NOP 

OUT 

NOP 

LD 

LD 

OUT 

NOP 

INC 

LD 

NOP 

NOP 

OUT 

NOP 

INC 

LD 

NOP 

NOP 

NOP 

CP 

JR 

El 

XOR 

LD 

JP 

1 

[ NOTE KEY ON 

; 

KYNOTE* ADD 
LD 
LD 
LD 
ADD 
LD 
INC 
LD 
LD 
ADD 
ADD 
ADD 
OR 
LD 
LD 
LD 
ADD 
LD 
LD 
ADD 
LD. 
INC 
LD 
LD 
BIT 
JR 
LD 
JR 

KYN0L2* LD 

KYN0L3* SRL 
ADD 
DI 
OUT 
NOP 
INC 
LD 
NOP 
NOP 
OUT 
NOP 
DEC 
LD 
SRL 
ADD 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
OUT 
NOP 
INC 
LD 
NOP 
NOP 
OUT 
NOP 
LD 
LD 
LD 
XOR 
LD 
ADD 
LD 
LD 
ADD 
LD 
INC 
LD 
ADD 
LD 
LD 
LD 
ADD 
PUSH 
LD 
LD 
LD 
LD 
LD 
ADD 
LD 
POP 
DEC 
LD 
OUT 
NOP 
INC 
LD 
AND 
JR 
LD 
SRL 
OUT 
NOP 
LD 
SRL 
ADD 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFB 


(C) , A 

BC,OPN#l 
A.KESADR 
(C) , A 

BC 
A, D 


(C) , A 
D 

A,3 


D 

NZ,KYSPC1 

A 

(PARTNO), A 
INKEY 


A,A 

D, 0 

E, A 

HL.NOTDAT 
HL.DE 
E,<HL> 

HL 

D,(HL) 

A,(OCT) 

A,A 
A, A 
A,A 
D 

D, A 
H,0 

A,(PARTNO) 

A,A 

L,A 

BC.NOTE 
HL.BC 
(HL),E 
HL 

(HL) ,D 
A,(PARTNO) 
0, A 

Z,KYN0L2 
BC,0PN#1 
KYN0L3 
BC,OPN40 
A 

A,FNHSAD 

(C) , A 

BC 

A,D 


(C) , A 
BC 

A,(PARTNO) 
A 

A.FNLSAD 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

(C) ,A 

BC 

A,E 


(C> , A 

A, (PARTNO) 

D, 0 

E, A 
A 

HL,DEEPS 

HL.DE 

(HL),A 

HL.LFOPS 

HL,DE 

(HL),A 

A 

HL.LFOUD 

HL,DE 

(HL) , A 

HL,(DATADR) 

DE.SWTOF 

HL, DE 

BC 

B, (HL) 

A,(PARTNO) 

D, 0 

E, A 

HL.STIHES 
HL, DE 
(HL),B 
BC 
BC 

A.KESADR 
(C> , A 

BC 

A,(NOBASU) 

1 

Z.KYNOLl 
A,(PARTNO) 

A 

(C) , A 

A,(PARTNO) 

A 

A,SALLON 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOH 


jOCT DATA ADD 


;NOP*18 


IS.WAIT PUT 


INOBASU- 

|SLOT ALL OFF 


;SLOT ALL ON 
jNOP*19 


154 Oh!MZ 1986.1. 


l**L f «t < # * 

11'7 HP ftA (16) 







033 l'l A3C4 ED79 
03321 A3C6 00 
0333« A3C7 FB 
0334i A3C8 CD7FA8 
0333i A3CB 1822 
03361 A3CD 3A66AC 
03371 A3D0 CB3F 
0338i A3D2 C6F0 
0339l A3D4 ED79 
05601 A3D6 00 
0361l A3D7 FB 
0362l A3D8 CD7FA8 
0363« A3DB F3 
03641 A3DC OB 
05631 A3DD 3E28 
0366» A3DF ED79 
03671 A3E1 00 
0368i A3E2 00 
0569i A3E3 00 
03701 A3E4 00 
0371i A3E5 03 
03721 A3E6 3A66AC 
03731 A3E9 CB3F 
03741 A3EB ED79 
03751 A3ED 00 
03761 A3EE FB 
03771 A3EF 3A63AC 
0378i A3F2 E602 
03791 A3F4 CA48A2 
03801 A3F7 3A66AC 
03811 A3FA 3C 
0382i A3FB FE06 
0583i A3FD 2001 
0384i A3FF AF 
0383t A400 3266AC 
0386i A403 C348A2 
03871 A406 
058Bi A406 
0389i A406 
03901 A406 3EFF 
0391i A408 1802 
0392i A40A 3E01 
0393t A40C 2163AC 
0394i A40F 86 
03931 A410 E607 
0596i A412 77 
03971 A413 DD360007 
03981 A417 DD360114 
03991 A41B 3E30 
0600t A41D 86 
060H A41E CDOBAO 
06021 A421 CD71A8 
06031 A424 C348A2 
0604i A427 
0603i A427 
06061 A427 
06071 A427 06FF 
06081 A429 180A 
06091 A42B 0601 
06101 A42D 1806 
06111 A42F 06FB 
06121 A431 1802 
0613t A433 0603 
06141 A433 2170AC 
0613i A438 3A3FAC 
0616i A43B 1600 
0617t A43D 5F 
06181 A43E 87 
0619i A43F 83 
06201 A440 3F 
06211 A441 19 
06221 A442 7E 
06231 A443 CB3F 
0624t A445 3804 
06231 A447 CB20 
06261 A449 18F8 
06271 A44B C5 
06281 A44C CD21AA 
06291 A44F Cl 
06301 A450 80 
06311 A431 47 
06321 A432 CD19A9 
0633t A435 CD8BA8 
0634l A438 C348A2 
0635i A45B 
06361 A45B 
0637l A43B 3A67AC 
0638i A43E 3C 
0639i A43F FE26 
0640i A461 2001 
06411 A463 AF 
06421 A464 3267AC 
06431 A467 C3ECA0 
06441 A46A 
0643l A46A 
06461 A46A 
0647i A46A 3A67AC 
0648i A46D 3D 
06491 A46E FEFF 
06501 A470 2002 
06511 A472 3E23 
06321 A474 3267AC 
06331 A477 C3ECA0 
0654i A47A 
06351 A47A 
06361 A47A 
0637i A47A CDAAA8 
0638i A47D DD360016 
06391 A4B1 DD360110 
06601 A483 11B1AD 
06611 A488 CDUAO 
06621 A48B DD360016 
0663i A48F DD3601U 
06641 A493 11ACAD 
06631 A496 CD11AO 
06661 A499 DD360016 
06671 A49D DD360112 
06681 A4A1 11B7AD 
06691 A4A4 CD11AO 
06701 A4A7 DD360016 
06711 A4AB DD360U3 
06721 A4AF 11BCAD 
06731 A4B2 CDUAO 
06741 A4B3 DD360016 
06731 A4B9 DD360114 
06761 A4BD 11C1AD 
0677t A4C0 CDUAO 
06781 A4C3 DD360016 
06791 A4C7 DD360U3 
06801 A4CB 11C6AD 
06811 A4CE CDUAO 
0682i A4D1 0610 
06831 A4D3 CD71A8 
0684i A4D6 CD8BA8 
0683i A4D9 DD360014 
06861 A4DD DD7001 
0687* A4E0 3E3E 
06881 A4E2 CDOBAO 
0689i A4E3 CDOEAO 
06901 A4EB FE4B 


OUT 

NOP 

El 

CALL 

JR 

KYNOLll LD 
SRL 
ADD 
OUT 
NOP 
El 

CALL 

DI 

DEC 

LD 

OUT 

NOP 

NOP 

NOP 

NOP 

INC 

LD 

SRL 

OUT 

NOP 

El 

KYNOL41 LD 
AND 
JP 
LD 
INC 
CP 
JR 
XOR 

KYNOLSl LD 
JP 


<C> , A 


GETKWN 
KYN0L4 
A,(PARTNO) 
A 

A,SALLON 
<C> , A 


BETKWN 

BC 

A.KE8ADR 
(C> ,A 


BC 

A,(PARTNO) 
A 

(C) ,A 


A, (NOBASU) 
2 

2,INKEY 
A,(PARTNO) 
A 
6 

NZ,KYN0L3 
A 

(PARTNO),A 
INKEY 


I 

( OCT UP DOWN KEY 
f 

KYODWi LD A,FFH 

JR KY0L1 

KYOUPi LD A, 1 

KYOLli LD HL.OCT 

ADD A,(HL) 

AND 07H 

LD (HL),A 

LD (IX+O),7 

LD (IX+l),20 

LD A,CHRZER 

ADD A,(HL) 

CALL 4PRINT 

CALL GETKWT 

JP INKEY 


I 

{ DATA UP DOWN KEY 


KYDDWl LD 
JR 

KYDUPi LD 
JR 

KYDHDWi LD 
JR 

KYDHUPl LD 

KYDli LD 
LD 
LD 
LD 
ADD 


B,FFH 

KYD1 

B, 1 

KYD1 

B,FBH 

KYD1 

B, 5 

HL,DATDAT 
A,(CURY8) 

D, 0 

E, A 
A,A 


LD E,A 

ADD HL,DE 

LD A,(HL) 

KYDLIl SRL A 

JR C.KYD2 

SLA B 

JR KYDLI 

KYD2l PUSH BC 

CALL DATOUT 

POP BC 

ADD A,B 

LD B,A 

CALL DAT INP 

CALL KWAIT 

JP INKEY 


| NEIRO DATA l 
KYNEUPi LD 
INC 


DATASU 

NZ.KYNULl 


| NEIRO DATA DOWN 


KYNDLll LD 


NZ.KYNDLl 

A,37 

(DATNO),A 
CRTMAK 


I 

{ CR KEY 
1 

KYCRl 


CALL 

LD 

LD 

LD 


LD 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

LD 

CALL 

KYCRLSi CALL 
LD 
LD 
LD 
CALL 


CP 


CURCLR 
(IX+O),22 
(IX+l),16 
DE,M22 
•MSG 

(IX+O),22 
(IX+l),17 
DE.M21 
•MSB 

(IX+O),22 
(IX+l),18 
DE.M23 
•MSB 

(IX+O),22 
(IX+l),19 
DE,M24 
•MSG 

(IX+O),22 
(IX+l),20 
DE,M23 
•MSG 

(IX+O),22 
(IX+l),21 
DE,M30 
•MSB 
B, 16 
GETKWT 
KWAIT 
(IX+O),20 
(IX+l),B 
A.CHRDAI 
•PRINT 
•GETKY 
CHRK 


|SLOT ON 
|SLOT ALL ON 


(BLOT ALL OFF 


|-1iDOWN 
1+llUP 

|OOOOO111B 


|-1iDOWN 
1+llUP 

j—Si HIGH DOWN 
|+3iHIGH UP 


069 

0692 

0693 

0694 

0693 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0703 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0713 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0723 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0733 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0743 

0746 

0747 

0748 

0749 

0730 

0731 

0732 

0733 

0734 

0733 

0736 

0737 

0738 

0739 

0760 

0761 

0762 

0763 

0764 

0763 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0773 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0783 

0786 

0787 

0788 

0789 

0790 

0791 

0792 

0793 

0794 

0793 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

0803 

0806 

0807 

0808 

0809 

0810 

0811 

0812 

0813 

0814 

0813 

0816 

0817 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

0823 

0826 

0827 

0828 

0829 

0830 


A4EA 280A 
A4EC FE2C 
A4EE 281C 
A4F0 FEOD 
A4F2 282E 
A4F4 18E0 
A4F6 DD360014 
A4FA DD7001 
A4FD 3E20 
A4FF CDOBAO 
A302 03 
A503 3E0F 
ASOS B8 
A506 20CE 
A308 0614 
ASOA 18CA 
A30C DD360014 
A310 DD7001 
ASl3 3E20 
AS13 CDOBAO 
AS18 04 
A319 3E16 
A3IB B8 
ASIC 20B8 
ASIE 0610 
A320 18B4 
A322 
A322 78 
A323 FEU 
A323 CA4BA5 
A328 FE10 
A32A CA98A3 
A32D FE12 
A32F CA79A7 
A332 FE13 
A334 CA17A7 
A337 FE14 
A339 CAAEA6 
A33C C308A0 
A33F 

A33F CD97A7 
A342 CD71A8 
A543 CD94AB 
A548 C348A2 
A34B 

A54B DD360013 
A34F DD360U3 
A553 11ACAD 
A336 CDUAO 
A339 CD71A8 
A33C DD360116 
A360 CDADA7 
A363 DA3FA3 
A366 D5 
A567 DD36000F 
A36B DD360101 
A36F 11D3AD 
A572 CDUAO 
A373 Di 
A576 DD360O0F 
A37A DD360101 
A37E 2A61AC 
A381 060A 
A383 AF 
A3B4 B9 
A383 3E20 
A387 2801 
A389 1A 
A58A 77 
A38B CDOBAO 
A38E OD 
A38F 23 
AS90 13 
A391 10F0 
A393 360D 
AS93 C33FAS 
A398 

A598 CDA5A5 
A59B CD49A6 
A39E 78 
A39F 3267AC 
A3A2 C3ECA0 
A3A5 

A3A3 3E0C 
A3A7 CDOBAO 
A3AA DD360O10 
A3AE DD360101 
A3B2 11ECAD 
A5B3 CDUAO 
A3B8 DD360011 
A3BC DD360102 
A SCO UB1AD 
A3C3 CDUAO 
A3C6 DD360010 
A3CA DD360103 
A3CE UECAD 
A3D1 CDUAO 
A5D4 DD360003 
A3D8 DD360104 
A3DC 1 IDFAC 
A3DF CDUAO 
A3E2 DD36000A 
A3E6 11ACAD 
A3E9 CDUAO 
ASEC DD360016 
A3F0 1IDFAC 
A3F3 CDUAO 
A5F6 DD36001B 
A3FA 11ACAD 
A3FD CDUAO 
A600 0600 
A602 DD360105 
A606 110099 
A609 21F802 
A60C 19 
A60D EB 
A60E DD360004 
A612 78 
A613 CDDDA8 
A616 3E3A 
A61B CDOBAO 
A61B EB 
A61C CDUAO 
A61F DD360015 
A623 3E13 
A623 80 
A626 CDDDA8 
A629 3E3A 
A62B CDOBAO 
A62E EB 
A62F CDUAO 
A632 D3 
A633 112800 
A636 19 
A637 DI 
A638 E3 
A639 212800 
A63C 19 
A63D EB 
A63E El 


KYCRLli LD 


KYCRL21 LD 


KYCRL31 LD 


KYCRLEl CALL 
CALL 
CALL 


CRNAMEi LD 


CRNALll XOR 


JR 

LD 

CRNAL2l LD 

CALL 

DEC 

INC 

INC 

DJNZ 


LD 

JP 


CRNELli LD 


ADD 

POP 

PUSH 


Z,KYCRL1 

CHRCON 

Z,KYCRL2 

CHRCR 

Z,KYCRL3 

KYCRL3 

(IX+O),20 

(IX+l),B 

A,CHRSPC 

•PRINT 

B 

A, 15 
B 

NZ,KYCRL3 

B, 20 
KYCRL5 
(IX+O),20 
(IX+l),B 
A,CHRSPC 
•PRINT 

B 

A, 22 
B 

NZ ,KYCRL5 

B, 16 
KYCRL3 


Z,CRLOAD 
19 

Z,CRSAVE 


CRCLR 

GETKWT 

CURSET 

INKEY 

(IX+O),21 
(IX+l),21 
DE, M21 
•MSG 
GETKWT 
(IX+l),22 
GETIL 
C,KYCRLE 
DE 

(IX+O),13 
(IX+l) ,1 
DE,M27 
•MSG 
DE 

(IX+O),15 
(IX+l),1 
HL,(DATADR) 
B, 10 


A,CHRSPC 
Z, CRNAL2 
A,(DE) 
(HL),A 
•PRINT 


CRNAL1 
(HL),CHRCR 
KYCRLE 

NEICRT 

CRNECU 

A,B 

(DATNO),A 
CRTMAK 

A. CHRCLS 
•PRINT 
(IX+O),16 
(IX+l),1 
DE,M29 
•MSG 

(IX+O),17 
(IX+l),2 
DE.M22 
•M8G 

(IX+O),16 
(IX+l),3 
DE.M29 
•MSG 
(IX+O),3 
(IX+l),4 
DE ,M1 
•MSG 

(IX+O),10 
DE,M21 
•MSG 

(IX+O),22 
DE ,M1 
•MSG 

(IX+O),27 

DE.M21 

•MSG 

B, 0 

(IX+l),3 
DE.ODATA 
HL.ODMID 
HL, DE 
DE,HL 
(IX+O),4 
A, B 
PR 10 

A,CHRCOR 
•PRINT 
DE,HL 
•MSG 

(IX+O),21 
A,19 
A,B 
PR 10 

A,CHRCOR 

•PRINT 

DE.HL 

•MSG 

DE 

DE,DATALO 
HL, DE 


HL,DATALO 

HL,DE 

DE.HL 


|NAME INPUT 


► fc o*C, 

Arm t x fe boo)* ? iijb*. i la*„ * < to “^-ks-os" (D$>m 

i: t>#inl X 7 fc&o'Ct'a-fo li vm (22) MiZU 
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0831: 

A63F 

04 

INC 

B 

0832: 

A640 

CD MAO 

CALL 

•LTNL 

0833: 

A643 

3E13 

LD 

A,19 

0834: 

A645 

B8 

CP 

B 

0835: 

A646 

20C6 

JR 

NZ.CRNELl 

0836: 

A648 

C9 

RET 


0837: 

A649 


i 


0838: 

A649 

3A67AC 

CRNECU: LD 

A,(DATNO) 

0839: 

A64C 

47 

LD 

B,A 

0840: 

A64D 

CD71A8 

CALL 

BETKWT 

0841: 

A650 

CD6BA6 

CRNEL4: CALL 

CRNEL9 

0842: 

A6S3 

3E3E 

LD 

A,CHRDAI 

0843: 

A655 

CDOBAO 

CALL 

•PRINT 

0844: 

A658 

CD8BA8 

CALL 

KWAIT 

0843: 

A65B 

CDOEAO 

CRNELB: CALL 

•BETKY 

0846: 

A63E 

FE4B 

CP 

CHRK 

0847: 

A660 

2824 

JR 

Z,CRNEL5 

0848: 

A662 

FE2C 

CP 

CHRCON 

0849: 

A664 

2834 

JR 

Z,CRNEL6 

0850: 

A666 

FEOD 

CP 

CHRCR 

0851: 

A668 

C8 

RET 

Z 

0852: 

A669 

18F0 

JR 

CRNELB 

0833: 

A66B 

3E12 

CRNEL9: LD 

A,18 

0854: 

A66D 

B8 

CP 

B 

0855: 

A66E 

380B 

JR 

C,CRNELA 

0856: 

A670 

3E05 

LD 

A,5 

0857: 

A672 

80 

ADD 

A,B 

0838: 

A673 

DD360004 

LD 

(IX+O) ,4 

0859: 

A677 

DD7701 

LD 

(IX+l>,A 

0860: 

A67A 

C9 

RET 


0861: 

A67B 

3EF2 

CRNELA: LD 

A,-14 

0862: 

A67D 

80 

ADD 

A,B 

0863: 

A67E 

DD360015 

LD 

(IX+O),21 

0864: 

A682 

DD7701 

LD 

UX+t),A 

0865: 

A685 

C9 

RET 


0866: 

A686 


1 


0867: 

A686 

CD6BA6 

CRNEL3: CALL 

CRNEL9 

0868: 

A689 

3E20 

LD 

A,CHRSPC 

0869: 

A68B 

CDOBAO 

CALL 

•PRINT 

0870: 

A68E 

05 

DEC 

B 

0871: 

A68F 

3EFF 

LD 

A, -1 

0872: 

A691 

B8 

CP 

B 

0873: 

A692 

C230A6 

JP 

NZ.CRNEL4 

0874: 

A695 

0625 

LD 

B,37 

0875: 

A697 

C350A6 

JP 

CRNEL4 

0876: 

A69A 


» 


0877: 

A69A 

CD6BA6 

CRNEL6: CALL 

CRNEL9 

0878: 

A69D 

3E20 

LD 

A,CHRSPC 

0879: 

A69F 

CDOBAO 

CALL 

•PRINT 

0880: 

A6A2 

04 

INC 

B 

0881: 

A6A3 

3E26 

LD 

A,38 

0882: 

A6A5 

B8 

CP 

B 

0883: 

A6A6 

C230A6 

JP 

NZ.CRNEL4 

0884: 

A6A9 

0600 

LD 

B,0 

0885: 

A6AB 

C350A6 

JP 

CRNEL4 

0886: 

A6AE 


1 


0887: 

A6AE 

CDA5AS 

CRCOPY: CALL 

NEICRT 

0888: 

A6B1 

DD360005 

LD 

(IX+O),3 

0889: 

A6B5 

DD360100 

LD 

(IX+l),0 

0890: 

A6B9 

11C6AD 

LD 

DE.M30 

0891: 

A6BC 

CD11A0 

CALL 

•MSB 

0892: 

A6BF 

DD36000? 

LD 

(IX+O),7 

0893: 

A6C3 

DD360101 

LD 

(IX+l),1 

0894: 

A6C7 

UCBAD 

LD 

DE.M31 

0893: 

A6CA 

CD11A0 

CALL 

•MSB 

0896: 

A6CD 

CD49A6 

CALL 

CRNECU 

0897: 

A6D0 

78 

LD 

A, B 

0898: 

A6D1 

3267AC 

LD 

(DATNO),A 

0899: 

A6D4 

DD360004 

LD 

(IX+O),4 

0900: 

A6D8 

DD360101 

LD 

(IX+l).1 

0901: 

A6DC 

CDDDA8 

CALL 

PR 10 

0902: 

A6DF 

CD49A6 

CALL 

CRNECU 

0903: 

A6E2 

3A67AC 

LD 

A,(DATNO) 

0904: 

A6ES 

4F 

LD 

C, A 

0905: 

A6E6 

78 

LD 

A,8 

0906: 

A6E7 

3267AC 

LD 

(DATNO),A 

0907: 

A6EA 

79 

LD 

A,C 

0908: 

A6EB 

6F 

LD 

L,A 

0909: 

A6EC 

2600 

LD 

H,0 

0910: 

A6EE 

29 

ADD 

HL,HL 

0911: 

A6EF 

29 

ADD 

HL,HL 

0912: 

A6F0 

29 

ADD 

HL,HL 

0913: 

A6F1 

E5 

PUSH 

HL 

0914: 

A6F2 

29 

ADD 

HL,HL 

0915: 

A6F3 

29 

ADD 

HL,HL 

0916: 

A6F4 

D1 

POP 

DE 

0917: 

A6F5 

19 

ADD 

HL,DE 

0918: 

A6F6 

110099 

LD 

DE,ODATA 

0919: 

A6F9 

19 

ADD 

HL,DE 

0920: 

A6FA 

E3 

PUSH 

HL 

0921: 

A6FB 

3A67AC 

LD 

A,(DATNO) 

0922: 

A6FE 

6F 

LD 

L, A 

0923: 

A6FF 

2600 

LD 

H,0 

0924: 

A701 

29 

ADD 

HL.HL 

0925: 

A702 

29 

ADD 

HL,HL 

0926: 

A703 

29 

ADD 

HL,HL 

0927: 

A704 

E3 

PUSH 

HL 

0928: 

A705 

29 

ADD 

HL.HL 

0929: 

A706 

29 

ADD 

HL,HL 

0930: 

A707 

D1 

POP 

DE 

0931: 

A708 

19 

ADD 

HL.DE 

0932: 

A709 

110099 

LD 

DE,ODATA 

0933: 

A70C 

19 

ADD 

HL,DE 

0934: 

A70D 

D1 

POP 

DE 

0935: 

A70E 

EB 

EX 

DE,HL 

0936: 

A70F 

012800 

LD 

BC ,40 

0937: 

A712 

EDBO 

LDIR 


0938: 

A714 

C3ECA0 

JP 

CRTMAK 

0939: 

A717 


; 


0940: 

A717 

CD97A7 

CRSAVE: CALL 

CRCLR 

0941: 

A71A 

DD360015 

LD 

(IX+O),21 

0942: 

A71E 

DD360110 

LD 

(IX+l),16 

0943: 

A722 

11E7AD 

LD 

DE.M28 

0944: 

A725 

CD11A0 

CALL 

•MSB 

0943: 

A728 

CD1AA0 

CALL 

•PRNT9 

0946: 

A72B 

11ACAD 

LD 

DE.M21 

0947: 

A72E 

CD11A0 

CALL 

•MSB 

0948: 

A731 

CD71A8 

CALL 

BETKWT 

0949: 

A734 

DD360111 

LD 

(IX+i),17 

0950: 

A73B 

CDADA7 

CALL 

BET1L 

0951: 

A73B 

DA3FA5 

JP 

C, KYCRLE 

0952: 

A73E 

3E01 

LD 

A,OBJ INF 

0933: 

A740 

CD2CA0 

CALL 

•FILE 

0954: 

A743 

FD2A741F 

LD 

IY,(•IBFAD) 

0933: 

A747 

FD36110D 

LD 

(IY+17),ODH 

0956: 

A74B 

210099 

LD 

HL,ODATA 

0957: 

A74E 

22701F 

LD 

(•DTADR),HL 

0958: 

A751 

21F003 

LD 

HL.ODATAS 

0939: 

A754 

22721F 

LD 

(•SIZE),HL 

0960: 

A737 

DD36001S 

LD 

(IX+O),21 

0961: 

A75B 

DD360114 

LD 

(IX+l),20 

0962: 

A75F 

CD20A0 

CALL 

•WRI 

0963: 

A762 

DA3FA3 

JP 

C, KYCRLE 

0964: 

A765 

CD23A0 

CALL 

•WRD 

0965: 

A768 

DD360000 

LD 

(IX+O),0 

0966: 

A76C 

DD360115 

LD 

(IX+l),21 

0967: 

A770 

UD3AD 

LD 

DE,M27 

0968: 

A773 

CD11 AO 

CALL 

•MSS 

0969: 

A776 

C33FA5 

JP 

KYCRLE 

0970: 

A779 


) 



097li A779 CD97A7 
0972» A77C DD360015 
0973: A7B0 DD360U0 
0974: A7B4 CD26A0 
0975: A7B7 DA3FA3 
0976: A78A DD360015 
0977: A7BE CD2FA0 
0978: A791 CD29A0 
0979: A794 C398A3 
0980: A797 
0981: A797 0608 
0982: A799 DD360110 
0983: A79D DD360014 
0984: A7A1 11D3AD 
0983: A7A4 CD11AO 
0986: A7A7 CD MAO 
0987: A7AA 10F1 
0988: A7AC C9 
0989: A7AD 
0990: A7AD DD360013 
0991: A7B1 21761F 
0992: A7B4 3E 

;CURSOR SET 0993: A7B5 23 

0994: A7B6 56 
0995: A7B7 CD1DAO 
0996: A7BA 1A 
0997: A7BB FE1B 
0998: A7BD 2002 
0999: A7BF 37 
lOOO: A7C0 C9 
1001: A7C1 211300 
1002: A7C4 19 
1003: A7C5 E5 
1004: A7C6 AF 
1005: A7C7 4F 
1006: A7C8 BE 

|UP 1007: A7C9 2804 

1008: A7CB 23 
1009: A7CC OC 
1010: A7CD 18F9 
1011: A7CF D1 
1012: A7D0 B7 
1013: A7D1 C9 
1014: A7D2 
1013: A7D2 
1016: A7D2 

{DOWN 1017: A7D2 3A3FAC 

1018: A7D3 FE02 
1019: A7D7 DA4BA2 
1020: A7DA FEOB 
1021: A7DC D248A2 
1022: A7DF 3A5EAC 
1023: A7E2 3D 
1024: A7E3 FEFF 
1023: A7E5 2002 
1026: A7E7 3E03 

jNEIRO COPY 1027: A7E9 CDAAA8 

1028: A7EC 325EAC 
1029: A7EF CD94A8 
1030: A7F2 CD8BA8 
1031: A7F3 C348A2 
1032: A7F8 
1033: A7F8 3A5FAC 
1034: A7FB FE02 
1035: A7FD DA48A2 
1036: A800 FEOB 
1037: A802 D24BA2 
1038: A805 3A5EAC 
1039: A808 3C 
1040: A809 FE04 
1041: A80B 2001 
1042: A80D AF 
1043: ABOE CDAAA8 
1044: A811 325EAC 
1043: A814 CD94A8 
1046: A817 CD8BA8 
1047: A81A C348A2 
1048: A81D 
1049: AB1D CDAAA8 

iTENSOU DATA ADR. 1030: A820 3A3FAC 

1051: A823 3D 
1052: A824 FEFF 
1033: A826 2004 
1054: A828 3E0E 
1053: A82A 180F 
1056: A82C FE01 
1037: A82E 200B 
1058: A830 47 
1059: A831 3A5EAC 
1060: A834 FE01 

iTENSOU 8AKI DATA ADR. 1061: A836 78 

1062: A837 3802 
1063: A839 3E0A 
1064: A83B 325FAC 
1065: A83E CD94A8 
1066: A841 CD8BA8 
1067: A844 C348A2 
1068: AS47 
1069: A847 CDAAA8 
1070: A84A 3A5FAC 
1071: A84D 3C 
1072: A84E FEOF 
1073: A850 2003 
1074: A852 AF 
1075: A853 1810 
1076: A835 FEOB 
1077: A857 200C 
1078: A859 47 
1079: A83A 3A5EAC 

I DATA SAVE 1080: A85D FE01 

1081: A85F 78 
1082: A860 DA63A8 
1083: A863 3E02 
1084: A863 325FAC 
1083: A868 CD94A8 
1086: A86B CD8BA8 
1087: A86E C348A2 
1088: A871 
1089: A871 
1090: A871 
1091: A871 
1092: A871 
1093: A871 
1094: A871 
1095: A871 C5 
1096: A872 0603 
1097: AB74 CDOEAO 
1098: A877 FEOO 
1099: A879 20F7 
1100: A87B 10F7 
1101: A87D Cl 
1102: A87E C9 
1103: A87F 
1104: A87F 
1105: A87F 
1106: A87F 
1107: A87F E5 
1108: A880 2164AC 
1109: A883 CDOEAO 
1110: A886 BE 


CRLOAD: CALL 
LD 
LD 
CALL 
JP 
LD 
CALL 
CALL 
JP 

I 

CRCLR: LD 
LD 

CRCLR1: LD 
LD 
CALL 
CALL 
DJNZ 
RET 

< 

13ET1L: LD 
LD 
LD 
INC 
LD 

CALL 

LD 

CP 

JR 

SCF 

RET 

8ET1L1: LD 
ADD 
PUSH 
XOR 
LD 

> GET1L3: CP 
JR 
INC 
INC 
JR 

BET1L2: POP 
OR 
RET 

1 

; CURSOR KEY 

5 

KYCLF: LD 

CP 
JP 
CP 
JP 
LD 
DEC 
CP 
JR 
LD 

•KYCLLi: CALL 
LD 
CALL 
CALL 
JP 

i 

KYCRI: LD 

CP 
JP 
CP 
JP 
LD 
INC 
CP 
JR 
XOR 

KYCRI1: CALL 
LD 
CALL 
CALL 
JP 

J 

KYCUP: CALL 

LD 
DEC 
CP 
JR 
LD 
JR 

KYCUL1: CP 
JR 
LD 
LD 
CP 
LD 
JR 
LD 

KYCUL2: LD 

CALL 

CALL 

JP 

1 

KYCDW: CALL 
LD 
INC 
CP 
JR 
XOR 
JR 

KYCDL1: CP 
JR 
LD 
LD 
CP 
LD 
JP 
LD 

KYCDL2: LD 

CALL 

CALL 

JP 


CRCLR 
(IX+O),21 
<1X4-1) ,16 
•RDI 

C,KYCRLE 
(IX+O),21 
•FPRNT 
•RDD 
CRNEIR 

B,8 

(IX+l),16 
(IX+O),20 
DE,M27 
•MSB 
tLTNL 
CRCLR1 


(IX+O),21 
HL,#KBFAD 
E,<HL> 

HL 

D,<HL> 
•SETL 
A,<D£> 
CHRBRK 
NZ,BET1L1 


HL ,21 
HL,DE 
HL 
A 

C,A 

(HL) 

Z.6ET1L2 

HL 

C 

BET1L3 

DE 

A 


A,(CURYS) 
2 

C,INKEY 
11 

NC,INKEY 
A,(CURXS) 
A 

NZ,KYCLLI 
A,3 

CURCLR 
(CURXS),A 
CURSET 
KWAIT 
INKEY 

A,(CURYS) 
2 

C,INKEY 
11 

NC,INKEY 
A,(CURXS) 
A 
4 

NZ,KYCRI1 
A 

CURCLR 
(CURXS),A 
CURSET 
KWAIT 
INKEY 

CURCLR 
A,(CURYS) 
A 

NZ,KYCUL1 

A, 14 
KYCUL2 
1 

NZ.KYCUL2 

B, A 

A,(CURXS) 

1 

A,B 

C, KYCUL2 
A,10 

(CURYS),A 
CURSET 
KWAIT 
INKEY 

CURCLR 

A, (CURYS) 
A 

15 

NZ ,KYCDL1 
A 

KYCDL2 

11 

NZ.KYCDL2 

B, A 

A,(CURXS) 
l 

A,B 

C, KYCDL2 
A,2 

(CURYS),A 
CURSET 
KWAIT 
INKEY 


OTOZUKURI NO SUB 


jRISHT 


jUP 


(DOWN 


KEY 0 HANASITARA RET 
BREAK A,F 


BETKWT: PUSH 
BETWL2: LD 
8ETWL1: CALL 
CP 
JR 
DJNZ 
POP 
RET 


BC 

B,3 

•BETKY 

O 

NZ.SETWL2 

BETWL1 

BC 


) 

I KEY OFF THEN RETURN 
; BREAK A,F 

I 

SETKWN: PUSH HL 

LD HL.KEYB 

SEWNL1: CALL DSETKY 
CP (HL) 


loo Oh! MZ 1986.1. oliTi\ Ztiti'C, i B 

*«&*m*5 «t *>, mt'i&sazitu*m<D 

KiA+rto (17) 






llllt A887 28FA 
1112: A889 El 
1113s ABBA C9 
1114: A88B 
1113: A88B 
1116: A88B 
1117: A88B 
1118: A88B 217017 
1119: A88E 2B 
1120: A88F 7C 
1121: A890 B5 
1122: A891 20FB 
1123: A893 C9 
1124: A894 
1125: A894 
1126: A894 
1127: AB94 
1128: A894 F3 
1129: A895 C5 
1130: AB96 CDC0A8 
1131: A899 3E5B 
1132: A89B CD0BA0 
1133: A89E 78 
1134: A89F DD7700 
1133: ASA2 3E5D 
1136: A8A4 CDOBAO 
1137: A8A7 Cl 
1138: A8A8 FI 
1139: A8A9 C9 
1140: A8AA 
1141: A8AA 
1142: A8AA 
1143: ASAA 
1144: ASAA F3 
1143: ABAB C3 
1146: ABAC CDC0A8 
1147: A8AF 3E20 
1148: A8B1 CDOBAO 
1149: A8B4 78 
1130: A8B3 DD7700 
1131: ABB8 3E20 
1132: A8BA CDOBAO 
1133: A8BD Cl 
1134: A8BE FI 
1133: A8BF C9 
1156: A8C0 
1137: A8C0 
1138: A8C0 
1139: ABCO 
1160: A8C0 3A3EAC 
1161: A8C3 47 
1162: A8C4 87 
1163: ABC5 87 
1164: A8C6 80 
1163: ABC7 C60A 
1166: A8C9 DD7700 
1167: A8CC C604 
1168: ABCE 47 
1169: A8CF 3ASFAC 
1170: A8D2 C603 
1171: A8D4 FEOE 
1172: A8D6 3801 
1173: A8D8 3C 
1174: A8D9 DD7701 
1173: A8DC C9 
1176: A8DD 
1177: A8DD 
1178: A8DD 
1179: A8DD 
1180: A8DD 
1181: A8DD C3 
1182: A8DE D3 
1183: A8DF 1600 
1184: A8E1 0E30 
1183: A8E3 FE64 
1186: A8E3 3803 
1187: A8E7 OC 
1188: ABES D664 
1189: A8EA 18F7 
1190: A8EC CD02A9 
1191: A8EF FEOA 
1192: A8F1 3803 
1193: A8F3 OC 
1194: ASF4 D60A 
1193: A8F6 18F7 
1196: ABF8 CD02A9 
1197: A8FB 81 
1198: A8FC CDOBAO 
1199: A8FF D1 
1200: A900 Cl 
1201: A901 C9 
1202: A902 
1203: A902 47 
1204: A903 AF 
1203: A904 BA 
1206: A903 79 
1207: A906 200A 
1208: A908 FE30 
1209: A90A 2004 
1210: A90C 3E20 
1211: A90E 1802 
1212: A910 1601 
1213: A912 CDOBAO 
1214: A915 78 
1213: A916 OE30 
1216: A918 C9 
1217: A919 
1218: A919 
1219: A919 
1220: A919 
1221: A919 
1222: A919 3ASEAC 
1223: A91C 3F 
1224: A91D 87 
1223: A91E 87 
1226: A91F 83 
1227: A920 C60B 
1228: A922 DD7700 
1229: A923 3ASFAC 
1230: A928 C603 
1231: A92A FEOE 
1232: A92C 3801 
1233: A92E 3C 
1234: A92F DD7701 
1233: A932 2170AC 
1236: A933 3A3FAC 
1237: A938 1600 
1238: A93A 3F 
1239: A93B 87 
1240: A93C 83 
1241: A93D 3F 
1242: A93E 19 
1243: A93F 7E 
1244: A940 4F 
1243: A941 AO 
1246: A942 47 
1247: A943 C3 
1248: A944 CB39 
1249: A946 3804 
1230: A94B CB3F 


JR 

POP 

RET 

I 

; KEY WAIT 
j BREAK HL,A 
J 

KWAIT: LD 

WAITL1: DEC 
LD 
OR 
JR 
RET 
I 

; CURSOR SET 
j BREAK NO 
> 

CURSET: PUSH 
PUSH 
CALL 
LD 
CALL 
LD 
LD 
LD 
CALL 
POP 
POP 
RET 


Z,GEWNL1 


HL 


HL,KEYWSU 

HL 

A,H 

L 

NZ,WAITL1 


AF 

BC 

CURKEI 
A,CHRDCO 
•PRINT 
A,B 

(IX+O) ,A 
A,CHRDCC 
•PRINT 
BC 
AF 


i CURSOR CLEAR 
| BREAK NO 
1 

CURCLR: PUSH AF 

PUSH BC 

CALL CURKEI 
LD A.CHRSPC 

CALL SPRINT 
LD A,B 

LD (IX+O),A 

LD A.CHRSPC 

CALL MPR1NT 
POP BC 

POP AF 

RET 


I 

{ CURSOR KEISAN 
| BREAK A.F.B 


1 

CURKEI: LD 
LD 
ADD 
ADD 
ADD 
ADD 
LD 
ADD 
LD 
LD 
ADD 
CP 
JR 
INC 

CURSL1: LD 
RET 


A, (CURXS) 

B, A 
A,A 
A,A 
A.B 
A,10 
(IX+O),A 

A. 4 

B. A 

A,(CURYS) 
A,3 
14 

C. CURSL1 
A 

(IX+1),A 


DECMAL 3KETA PRINT 
PRINT DATA ACC 
BREAK A.F 


PR10: PUSH 

PUSH 
LD 
LD 

PR10L1: CP 
JR 
INC 
SUB 
JR 

PR10L2: CALL 

PR10L3: CP 
JR 
INC 
SUB 
JR 

PR10L4: CALL 
ADD 
CALL 
POP 
POP 
RET 

I 

PR108: LD 
XOR 
CP 
LD 
JR 
CP 
JR 
LD 
JR 

PR10S2: LD 

PR1081: CALL 
LD 
LD 
RET 


BC 

DE 

D,0 

C.CHRZER 

100 

C.PR10L2 

C 

lOO 

PR10L1 

PR10S 

10 

C.PR10L4 

C 

10 

PR10L3 

PR10S 

A.C 

•PRINT 

DE 

BC 


B. A 
A 

D 

A.C 

NZ.PR10S1 
CHRZER 
NZ.PR10S2 
A.CHRSPC 
PR1081 
D, 1 

•PRINT 

A.B 

C. CHRZER 


I 100 KETA 


1 

j DATA INPUT 

I INPUT DATA B,(CURXS),(CURYS) 

| BREAK ALL 
I 

DATINP: LD A,(CURXS) |CURSOR X SET 

LD E.A 


ADD 

ADD 

ADD 

LD 

LD 

ADD 

CP 

JR 

INC 

DATIL1: LD 
LD 
LD 

DATILA: LD 
LD 
ADD 
ADD 
LD 
ADD 
LD 
LD 
AND 
LD 
PUSH 

DATIL9: SRL 
JR 
SRL 


A,A 
A.E 
A,11 

(IX+O),A 
A,(CURY9) 
A,3 
14 

C.DATILl 

A 

(IX+1),A 
HL,DATDAT 
A,(CURYS) 
0.0 
E.A 


A.E 
E.A 
HL, DE 
A,(HL) 
C , A 
B 


C 

C.DATIL8 

A 


|CURSOR Y SET 


| MASK DATA PUT 


1231: 

A94A 

18F8 

JR 

DATIL9 


1232: 

A94C 

Cl 

DATIL8: POP 

BC 


1233: 

A94D 

CDDDA8 

CALL 

PR10 


1234: 

A9S0 

23 

INC 

HL 

(OFFSET DATA PUT 

1233: 

A931 

3E 

LD 

E,(HL) 

{DATA AREA SANSHUTU 

1236: 

A952 

E3 

PUSH 

HL 


1237: 

A953 

2A61AC 

LD 

HL,(DATADR) 


1258: 

A936 

19 

ADD 

HL.DE 


1239: 

A957 

3A3EAC 

LD 

A,(CURXS) 

j DATA AREA SANSHUTU 

1260: 

A95A 

CB3F 

SRL 

A 

1261: 

A93C 

3002 

JR 

NC.DATIL2 


1262: 

A95E 

CBCF 

SET 

1, A 


1263: 

A960 

3260AC 

DATIL2: LD 

(CURXSS),A 


1264: 

A963 

3F 

LD 

E.A 


1263: 

A964 

19 

ADD 

HL.DE 


1266: 

A963 

79 

LD 

A.C 

I MASK DATA CPL 

1267: 

A966 

2F 

CPL 


1268: 

A967 

A6 

AND 

(HL) 


1269: 

A968 

BO 

OR 

B 


1270: 

A969 

77 

LD 

(HL) ,A 

|DATA AREA WRITE 

1271: 

A96A 

El 

POP 

HL 

1272: 

A96B 

23 

INC 

HL 


1273: 

A96C 

5F 

LD 

E.A 


1274: 

A96D 

56 

LD 

D,(HL) 

I SUB ADR READ 

1273: 

A96E 

3E03 

LD 

A,3 

ILFO DATA? 

1276: 

A970 

BA 

CP 

D 

1277: 

A971 

384F 

JR 

C.DATIL3 


1278: 

A973 

280F 

JR 

Z.DATIL4 

ILFO DATA SHORI 

1279: 

A973 

3D 

DEC 

A 

1280: 

A976 

BA 

CP 

D 


1281: 

A977 

2812 

JR 

Z.DATILS 


1282: 

A979 

3D 

DEC 

A 


1283: 

A97A 

BA 

CP 

D 


1284: 

A97B 

2843 

JR 

Z.DATIL3 


1285: 

A97D 

7B 

LD 

A.E 


1286: 

A97E 

214FAC 

LD 

HL.FVFLG 

|F.NO OR VR F 

1287: 

A981 

C3BBA9 

JP 

DATILC 


1288: 

A984 

7B 

DATIL4: LD 

A.E 

JSTEP 

1289: 

A985 

2131AC 

LD 

HL,STEP 

1290: 

A988 

C3BBA9 

JP 

DATILC 


1291: 

A98B 

7B 

DATIL3: LD 

A.E 

| DEEP 

1292: 

A98C 

212BAC 

LD 

HL,DEEP 


1293: 

A98F 

CDBBA9 

CALL 

DATILC 


1294: 

A992 

2A3EAC 

LD 

HL,(CURXS) 


1293: 

A993 

ES 

PUSH 

HL 


1296: 

A996 

2A3FAC 

LD 

HL,(CURYS) 


1297: 

A999 

E3 

PUSH 

HL 


1298: 

A99A 

3E03 

LD 

A,3 


1299: 

A99C 

323FAC 

LD 

(CURYS),A 


1300: 

A99F 

AF 

XOR 

A 


1301: 

A9A0 

323EAC 

DATILB: LD 

(CURXS),A 


1302: 

A9A3 

F3 

PUSH 

AF 


1303: 

A9A4 

CD21AA 

CALL 

DATOUT 


1304: 

A9A7 

47 

LD 

B.A 


1303: 

A 9 AS 

CD19A9 

CALL 

DATINP 


1306: 

A9AB 

FI 

POP 

AF 


1307: 

A9AC 

3C 

INC 

A 


1308: 

A9AD 

0604 

LD 

B.4 


1309: 

A9AF 

BF 

CP 

A 


1310: 

A9B0 

20EE 

JR 

NZ,DATILB 


1311: 

A9B2 

El 

POP 

HL 


1312: 

A9B3 

223FAC 

LD 

(CURYS),HL 


1313: 

A9B6 

El 

POP 

HL 


1314: 

A9B7 

22SEAC 

LD 

(CURXS),HL 


1313: 

A9BA 

C9 

RET 



1316: 

A9BB 

0606 

DATILC: LD 

B.6 


1317: 

A9BD 

77 

DATILD: LD 

(HL) ,A 


1318: 

A9BE 

23 

INC 

HL 


1319: 

A9BF 

10FC 

DJNZ 

DATILD 


1320: 

A9C1 

C9 

RET 



1321: 

A9C2 


1 



1322: 

A9C2 

3A60AC 

DATIL3: LD 

A,(CURXSS) 

; SUB ADR SANSHUTU 

1323: 

A9C5 

87 

ADD 

A,A 


1324: 

A9C6 

87 

ADD 

A,A 


1325: 

A9C7 

82 

ADD 

A.D 


1326: 

A9C8 

57 

LD 

D.A 


1327: 

A9C9 

2603 

LD 

H.3 


1328: 

A9CB 

F3 

DI 



1329: 

A9CC 

OlOOOO 

DAT ILF: LD 

BC,0PN*0 


1330: 

A9CF 

7A 

LD 

A.D 


1331: 

A9D0 

ED79 

OUT 

(C) , A 


1332: 

A9D2 

00 

NOP 



1333: 

A9D3 

03 

INC 

BC 


1334: 

A9D4 

7B 

LD 

A.E 


1335: 

A9D5 

00 

NOP 



1336: 

A9D6 

00 

NOP 



1337: 

A9D7 

ED79 

OUT 

(C> , A 


1338: 

A9D9 

00 

NOP 



1339: 

A9DA 

010200 

LD 

BC,OPN*1 


1340: 

A9DD 

7A 

LD 

A.D 


1341: 

A9DE 

ED79 

OUT 

(C) ,A 


1342: 

A9E0 

00 

NOP 



1343: 

A9E1 

03 

INC 

BC 


1344: 

A9E2 

7B 

LD 

A.E 


1343: 

A9E3 

00 

NOP 



1346: 

A9E4 

00 

NOP 



1347: 

A9E3 

ED79 

OUT 

(C> ,A 


1348: 

A9E7 

00 

NOP 



1349: 

A9E8 

14 

INC 

D 


1350: 

A9E9 

00 

NOP 



1331: 

A9EA 

00 

NOP 



1352: 

A9EB 

00 

NOP 



1353: 

A9EC 

25 

DEC 

H 


1354: 

A9ED 

20DD 

JR 

NZ,DAT ILF 


1355: 

A9EF 

FB 

El 



1356: 

A9F0 

3A5FAC 

LD 

A,(CURYS) 


1337: 

A9F3 

FE03 

CP 

3 


1358: 

A9F5 

2805 

JR 

Z.DATIL6 

|TO TOTAL LEVEL 

1339: 

A9F7 

FEOO 

CP 

0 


1360: 

A9F9 

2815 

JR 

Z.DAT1L7 

5 TO CONNECT 

1361: 

A9FB 

C9 

RET 



1362: 

A9FC 

3A60AC 

DATIL6: LD 

A,(CURXSS) 

I TOTAL LEVEL 

1363: 

A9FF 

4F 

LD 

C.A 


1364: 

AAOO 

0600 

LD 

8,0 


1363: 

AA02 

2137AC 

LD 

HL,TLEVEL 


1366: 

AA05 

09 

ADD 

HL.BC 


1367: 

AA06 

0606 

LD 

B.6 


1368: 

AA08 

73 

DATILE: LD 

(HL),E 


1369: 

AA09 

23 

INC 

HL 


1370: 

AAOA 

23 

INC 

HL 


1371: 

AAOB 

23 

INC 

HL 


1372: 

AAOC 

23 

INC 

HL 


1373: 

AAOD 

10F9 

DJNZ 

DATILE 


1374: 

AAOF 

C9 

RET 



1373: 

AA10 

2168AC 

DATIL7: LD 

HL,DATCON 

t CONNECT OP NO DATA 

1376: 

AA13 

1600 

LD 

D.O 


1377: 

AA15 

3E07 

LD 

A,7 


1378: 

AA17 

A3 

AND 

E 


1379: 

AA1B 

3F 

LD 

E.A 


1380: 

AA19 

19 

ADD 

HL.DE 


1381: 

AA1A 

7E 

LD 

A, (HL) 


1382: 

AA1B 

2153AC 

LD 

HL.LFOCON 


1383: 

AA1E 

C3BBA9 

JP 

DATILC 


1384: 

AA21 


1 



1383: 

AA21 


I DATA OUT 



1386: 

AA21 


1 OUTPUT DATA ACC 


1387: 

AA21 


I BREAK ALL 



1388: 

AA21 


1 



1389: 

AA21 

2170AC 

DATOUTt LD 

HL.DATDAT 


1390: 

AA24 

3A5FAC 

LD 

A,(CURYS) 
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1391 

1392 

1393 

1394 
1393 

1396 

1397 

1395 

1399 

1400 

1401 

1402 

1403 

1404 
1403 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 
1433 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 
1443 

1446 

1447 

1448 

1449 

1430 

1431 

1432 

1433 
1454 
1433 

1436 

1437 

1438 

1439 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 
1473 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 
1483 
14 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 
1493 

1496 

1497 

1498 

1499 

1300 

1301 

1302 

1303 

1304 
1303 

1306 

1307 

1508 

1509 

1310 

1311 

1312 

1313 

1314 
1313 

1316 

1317 

1318 

1319 
1520 

1321 

1322 

1323 

1324 
1323 
1526 

1327 

1328 

1329 

1330 


58 


: AA27 

1600 

DAT0L2: LD 

D,0 




: AA29 

3F 

LD 

E,A 




i AA2A 

87 

ADD 

A, A 




: AA2B 

83 

ADD 

A,E 




: AA2C 

5F 

LD 

E,A 




■ AA2D 

19 

ADD 

HL,DE 




: AA2E 

46 

LD 

B,(HL) 




: AA2F 

23 

INC 

HL 




: AA30 

3E 

LD 

E,(HL) 




: AA31 

2A61AC 

LD 

HL,(DATADR) 




: AA34 

19 

ADD 

HL, DE 




: AA35 

3A3EAC 

LD 

A,(CURXS) 




l AA38 

CB3F 

SRL 

A 




■ AA3A 

3002 

JR 

NC.DATOLl 




« AA3C 

CBCF 

SET 

1, A 




: AA3E 

5F 

DAT0L1: LD 

E, A 




: AA3F 

19 

ADD 

HL, DE 




i AA40 

78 

LD 

A,B 




: AA41 

A6 

AND 

(HL) 




: AA42 

C9 

RET 





: AA43 


1 





: AA43 


» LFO 





: AA43 


I 





: AA43 


LFO: ENT 





: AA43 

08 

EX 

AF,AF' 




: AA44 

D9 

EXX 





: AA45 

3E01 

LD 

A, 1 




: AA47 

323CAC 

LD 

(INTFA),A 




: AA4A 

010200 

LD 

BC,0PN#1 

|TIMER BF RESET 



: AA4D 

3E27 

LD 

A,CTSADR 




: AA4F 

OOOO 

DEFW 

OOOOH 

|N0P*6 



: AA51 

OOOO 

DEFW 

OOOOH 




: AA33 

OOOO 

DEFW 

OOOOH 




: AASS 

ED79 

OUT 

(C> ,A 




: AA57 

OO 

NOP 





: AA58 

03 

INC 

BC 




: AA39 

3A06AC 

LD 

A,(TCC) 




: AA3C 

00 

NOP 





: AA5D 

ED79 

OUT 

(C) ,A 




: AA3F 

00 

NOP 





: AA60 

OEOO 

LD 

C,0 

|COUNTER (BC REB) 



: AA62 

0600 

LFOLOP: LD 

B,0 




: AA64 

212BAC 

LD 

HL,DEEP 

tDEEP-0?(LFO OFF?) 



: AA67 

09 

ADD 

HL,BC 




: AA6B 

56 

LD 

D,(HL) 




: AA69 

AF 

XOR 

A 




: AA6A 

BE 

CP 

(HL) 




: AA6B 

CA60AB 

JP 

Z,LFONEX 




: AA6E 

2119AC 

LD 

HL.STIMES 

1 START TIME-0? 



: AA71 

09 

ADD 

HL, BC 




« AA72 

BE 

CP 

(HL) 




: AA73 

2804 

JR 

Z,LFOSTA 




: AA73 

33 

DEC 

(HL) 

1 START TIME DEC 



: AA76 

C360AB 

JP 

LFONEX 




: AA79 

2123AC 

LFOSTA: LD 

HL.LFOPS 

|STTEP—O?(—0lLFO) 



: AA7C 

09 

ADD 

HL,BC 




: AA7D 

BE 

CP 

(HL) 




: AA7E 

2804 

JR 

Z.LFOLBl 




: AA80 

33 

DEC 

(HL) 

I STEP DEC 



: AA81 

C360AB 

JP 

LFONEX 




: AA84 

2131AC 

LF0LB1: LD 

HL,STEP 

|LFO STEP RESET 



: AA87 

09 

ADD 

HL,BC 




: AA88 

7E 

LD 

A,(HL) 




: AA89 

2125AC 

LD 

HL.LFOPS 




: AA8C 

09 

ADD 

HL,BC 




: AA8D 

77 

LD 

(HL) ,A 




: AA8E 

2113AC 

LD 

HL,DEEPS 

j DEEP-DEEPS? 



: AA91 

09 

ADD 

HL,BC 




: AA92 

7E 

LD 

A,(HL) 




>: AA93 

BA 

CP 

D 




.: AA94 

2803 

JR 

Z,LFOUDH 




!: AA96 

82 

ADD 

A,D 

1-DEEPS-DEEP? 



!: AA97 

2802 

JR 

Z,LFOUDH 




): AA99 

1807 

JR 

LF0LB3 




Si AA9B 

211FAC 

LFOUDH: LD 

HL,LFOUD 

|LFO UP DOWN CH 



>: AA9E 

09 

ADD 

HL, BC 




’: AA9F 

7E 

LD 

A,(HL) 




it AAAO 

2F 

CPL 





)i AAAI 

77 

LD 

(HL),A 

!DEEP8-DEEPS+LF0UD 



>: AAA2 

2UFAC 

LF0LB3: LD 

HL,LFOUD 




: AAA5 

09 

ADD 

HL, BC 




>: AAA6 

7E 

LD 

A,(HL) 




I: AAA 7 

2U3AC 

LD 

HL,DEEPS 




\t A AAA 

09 

ADD 

HL , BC 




S: AAAB 

86 

ADD 

A,(HL) 




>: AAAC 

77 

LD 

(HL),A 




’: AAAD 

5F 

LD 

E,A 

1LFOWK(E)-DEEPS 



1: AAAE 

323BAC 

LD 

(LFOWK),A 




>« AAB1 

214FAC 

LD 

HL.FVFLB 

jLFO F.NO OR T.L.? 



>: AAB4 

09 

ADD 

HL ,BC 




AAB5 

AF 

XOR 

A 




t« AAB6 

BE 

CP 

(HL) 




Si AAB7 

CA07AB 

JP 

Z.LFOLBF 




S: AABA 







Si AABA 

C3 

PUSH 

BC 

|T.LEVEL M 



>: AABB 

2133AC 

LD 

HL,LFOCON 




’: AABE 

09 

ADD 

HL ,BC 




): AABF 

EB 

EX 

DE.HL 




>: AACO 

CB21 

SLA 

C 




): AAC2 

CB21 

SLA 

c 




l AAC4 

2137AC 

LD 

HL,TLEVEL 




!: AAC7 

09 

ADD 

HL,BC 




l: A ACS 

CB39 

SRL 

C 




Si AACA 

CB39 

SRL 

C 




Si AACC 

CB39 

SRL 

C 




>: AACE 

3808 

JR 

C,LF0L#1 




’: AADO 

3E40 

LD 

A,TLSADR 

iOPNWO 



I: AAD2 

81 

ADD 

A,C 




>« AAD3 

OlOOOO 

LD 

BC.OPNftO 




>: AAD6 

1806 

JR 

LF0LB4 




l AAD8 

3E40 

LF0L#1« LD 

A,TLSADR 




!: AADA 

81 

ADD 

A,C 




1: AADB 

010200 

LD 

BC,OPN#1 




i AADE 

F3 

LF0LB4: PUSH 

AF 




ft AADF 

1A 

LD 

A,(DE) 




n AAEO 

57 

LD 

D,A 




’: AAE1 

FI 

POP 

AF 




1: AAE2 

1E04 

LD 

E,4 

I OP LOOP 



»l AAE4 

CB3A 

LFOWLV: SRL 

D 




n AAE6 

3013 

JR 

NC.LF0LB3 




: AAE8 

OOOO 

DEFW 

OOOOH 

;N0P*7 



It AAEA 

OOOO 

DEFW 

OOOOH 




S: AAEC 

OOOO 

DEFW 

OOOOH 




: AAEE 

OO 

DEFB 

OOH 




Si AAEF 

ED79 

OUT 

(C) ,A 




if AAF1 

00 

NOP 





: AAF 2 

OC 

INC 

C 




1: AAF 3 

F3 

PUSH 

AF 




’: AAF4 

3A3BAC 

LD 

A,(LFOWK) 




>l AAF7 

86 

ADD 

A,(HL) 




: AAFB 

ED79 

OUT 

(C> ,A 




: AAF A 

00 

NOP 





S« AAFB 

OD 

DEC 

C 




: AAFC 

FI 

POP 

AF 




>: AAFD 

23 

LF0LB5: INC 

HL 




: AAFE 

C604 

ADD 

A,SADRSD 




T ABOO 

ID 

DEC 

E 




I: AB01 

20E1 

JR 

NZ,LFOWLV 




: AB03 

Cl 

POP 

BC 




<l AB04 

C360AB 

JP 

LFONEX 
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13311 
15321 
15331 
13341 
13351 
lS36i 
1537: 
13381 
1539i 
13401 
154U 
1342i 
1343i 
1544i 
1545: 
1546: 
1347: 
1548: 
1549: 
1530: 
1351: 
1332: 
1553: 
1334: 
1555: 
1336: 
1537: 
1358: 
1339: 
1560: 
1361: 
1362: 
1563: 
1364: 
1563: 
1566: 
1367: 
1368: 
1369: 
1370: 
1571: 
1572: 
1573: 
1574: 
1375: 
1376: 
1377: 
1578: 
1379: 
1380: 
1381: 
1582: 
1583: 
1384: 
1585: 
1586: 
1387: 
1S88: 
1589: 
1590. 
1391: 
1592: 
1393: 
1394: 
1393: 
1396: 
1597: 
1398: 
1399: 
1600: 
1601: 
1602: 
1603: 
1604: 
1603: 
1606: 
1607: 
1608: 
1609: 
1610: 
1611: 
1612: 
1613: 
1614: 
1613: 
1616: 
1617: 
1618: 
1619: 
1620: 
1621: 
1622: 
1623: 
1624: 
1623: 
1626: 
1627: 
1628: 
1629: 
1630: 
1631: 
1632: 
1633: 
1634: 
1633: 
1636: 
1637: 
1638: 
1639: 
1640: 
1641: 
1642: 
1643: 
1644: 
1643: 
1646: 
1647: 
1648: 
1649: 
1650: 
1651: 
1632: 
1633: 
1654: 
1653: 
1656: 
1637: 
1638: 
1639: 
1660: 
1661: 
1662: 
1663: 
1664: 
1663: 
1666: 
1667: 
1668: 
1669: 
1670: 


AB07 
AB07 C3 
ABOB CB21 
ABOA 2107AC 
ABOD 09 
ABOE CB39 
AB10 7E 
ABU 23 
AB12 56 
AB13 83 
ABM 3807 
AB16 CB7B 
AB18 2808 
AB1A 13 
AB1B 1803 
AB1D CB7B 
ABIE 2001 
AB21 14 
AB22 3F 
AB23 79 
AB24 CB3F 
AB26 C6A4 
AB28 CB41 
AB2A 2803 
AB2C 010200 
AB2F 1803 
AB31 OlOOOO 
AB34 ED79 
AB36 00 
AB37 OC 
AB38 OOOO 
AB3A OOOO 
AB3C ED51 
AB3E 00 
AB3F OD 
AB40 D604 
AB42 OOOO 
AB44 OOOO 
AB46 OOOO 
AB48 OOOO 
AB4A OOOO 
AB4C OOOO 
AB4E OOOO 
AB50 OOOO 
AB32 OOOO 
AB34 ED79 
AB56 00 
AB57 OC 
AB38 OOOO 
AB5A OOOO 
ABSC ED39 
ABBE 00 
AB5F Cl 
AB60 
AB60 OC 
AB61 3E06 
AB63 B9 
AB64 C262AA 
AB67 AF 
AB68 323CAC 
AB6B 3A3DAC 
AB6E FEOO 
AB70 2005 
AB72 08 
AB73 09 
AB74 FB 
AB75 ED4D 
AB77 08 
AB78 09 
AB79 FB 
AB7A C9 
AB7B 
AB7B 
AB7B 

AB7B (0023) 
AB7B (0024) 
AB7B (0027) 
AB7B 
AB7B 

AB7B 010200 
AB7E 3E23 
AB80 ED79 
AB82 00 
AB83 03 
AB84 AF 
AB83 OOOO 
AB87 ED79 
AB89 00 
ABBA OB 
AB8B 3E24 
ABBO OOOO 
AB8F OOOO 
AB91 OOOO 
AB93 OOOO 
AB93 OOOO 
AB97 OOOO 
AB99 OOOO 
AB9B OOOO 
AB9D OOOO 
AB9F ED79 
ABA1 00 
ABA2 03 
ABA3 3E6E 
ABAS 00 
ABA6 ED79 
ABA8 00 
ABA9 OB 
ABAA 3E27 
ABAC OOOO 
ABAE OOOO 
ABBO OOOO 
ABB2 OOOO 
ABB4 OOOO 
ABB6 OOOO 
ABB8 OOOO 
ABBA OOOO 
ABBC OOOO 
ABBE ED79 
ABCO 00 
ABC 1 03 
ABC2 3A06AC 
ABCS 00 
ABC6 ED79 
ABC8 00 
ABC9 C9 
ABCA 
ABCA 
ABCA 
ABCA C3 
ABCB F5 
ABCC 010200 
ABCF 3E27 
ABD1 OOOO 
ABD3 OOOO 
ABD5 OOOO 
ABD7 OOOO 
ABD9 ED79 
ABDB OO 
ABDC 03 
ABDD 3A06AC 


LFOUPC: BIT 


INC 

LF0LB7: LD 


LD 

JR 

LF0LB8: LD 

LF0LB9: OUT 
NOP 
INC 
DEFW 
DEFN 
OUT 
NOP 
DEC 
SUB 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
OUT 
NOP 
INC 
DEFW 
DEFW 
OUT 
NOP 
POP 

I 

LFONEX: INC 


LD 

LD 

DEFW 

DEFW 

DEFW 

DEFW 

OUT 

NOP 

INC 

LD 


HL,NOTE 

HL,BC 

C 

A,(HL) 

HL 

D, (HL) 

A,E 

C,LFOUPC 
7,E 

Z.LF0LB7 

D 

LF0LB7 

7,E 

NZ.LF0LB7 

D 

E, A 
A ,C 
A 

A,FNHSAD 
0,C 

Z,LF0LB8 
BC,OPN#1 
LF0LB9 
BC,0PN#0 
(C) ,A 


OOOOH 
OOOOH 
(C> ,D 

c 

SADRSD 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
(C> , A 


jF.NO.M 
I DEEP* 


RET I 

LFOLBA: EX 
EXX 


TAHSAD: EQU 
TALSAD: EQU 
CTSADR: EQU 
I 

LFOSS: ENT 


OUT 

NOP 

INC 

XOR 

DEFW 

OUT 

NOP 

DEC 

LD 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

OUT 

NOP 

INC 

LD 

NOP 

OUT 

NOP 

DEC 

LD 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

OUT 

NOP 

INC ' 

LD 

NOP 

OUT 

NOP 

RET 


BC 

AF 

BC,OPN#1 

A,CTSADR 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

(C) ,A 

BC 


|F.NO.SADR HI 


{OPN F.NO.SADR LOW 
I NOP*18 


OOOOH 
OOOOH 
<C> ,E 


A,6 
C 

NZ.LFOLOP 


(INTFA),A 
A,(INTFB) 


NZ,LFOLBA 
AF,AF' 


23H 

24H 

27H 


BC,OPN#1 
A,TAHSAD 
(C) , A 


OOOOH 
(C) ,A 

BC 

A,TALSAD 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

(C) , A 

BC 

A, 110 
(C) ,A 


A,CTSADR 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

OOOOH 

(C) ,A 


A,(TCC) 
(C) ,A 


|TIMER A HIBH SUB ADR 
I TIMER A LOW SUB ADR 
|CONTROL SUB ADR 


|TIMER A HIBHT DATA 
IN0P*2 


|TIMER A LOW DATA 


un r fs.L7v-e>hj t iv&nmLx* 


** (is) 










16?It ABEO ED79 
1672i ABE2 00 
1673t ABE3 OB 
1674t ABE4 0000 
16731 ABE6 0000 
1676t ABES 0000 
1677« ABEA 0000 
167Bl ABEC OOOO 
16?9l ABEE 0000 
1680! ABFO 0000 
16811 ABF2 0000 
1682s ABF4 OOOO 
1683t ABF6 OOOO 
1684s ABF8 ED78 
1683s ABFA 2003 
1686s ABFC FI 
1687s ABFD Cl 
1688s ABFE C343AA 
1689s AC01 FI 
1690s AC02 Cl 
1691s AC03 C343AA 
1692s AC06 
1693s AC06 
1694s AC06 
1693s AC06 
1696s AC06 
1697s AC06 
1698s AC06 
1699s AC06 
1700s AC06 
1701s AC06 
1702s AC06 33 
1703s AC07 
1704s AC07 
1703s AC 13 
1706s AC13 
1707s AC19 
1708s AC 19 
1709s AC IF 
1710s ACIF 
1711s AC25 
1712s AC25 
1713s AC2B 
1714s AC2B 
1713s AC2B 
1716s AC31 
1717s AC31 
1718s AC37 
1719s AC37 
1720s AC4F 
1721s AC4F 
1722s AC35 
1723s AC33 
1724s AC3B 
1723s AC3C 
1726s AC3D 
1727s AC3E 
1728s AC3E 
1729s AC5E 
1730s AC3E 
1731s AC3F 
1732s AC60 
1733s AC61 
1734s AC63 
1733s AC64 
1736s AC6S 
1737s AC66 
1738s AC67 
1739s AC68 
1740s AC68 
1741s AC68 
1742s AC68 08 
1743s AC69 08 
1744s AC6A 08 
1743s AC6B 08 
1746s AC6C OC 
1747s AC6D OE 
1748s AC6E OE 
1749s AC6F OF 
1730s AC70 07 
1731s AC71 23 
1732s AC72 BO 
1733s AC73 38 
1734s AC74 23 
1733s AC73 BO 
1736s AC76 OF 
1737s AC77 OB 
1738s AC78 30 
1739s AC79 7F 
1760s AC7A OF 
1761s AC7B 40 
1762s AC7C IF 
1763s AC7D 13 
1764s AC7E 30 
1763s AC7F IF 
1766s AC80 17 
1767s AC81 60 
1768s AC82 IF 
t?69s AC83 IB 
1770s AC84 70 
1771s ACB3 FO 
1772s AC86 IF 
1773s AC87 80 
1774s AC88 OF 
l?73s AC89 IF 
1776s AC8A 80 
1777s AC8B 70 
1778s AC8C OB 
1779s ACBD 30 
1780s AC8E CO 
1781s AC8F 13 
1782s AC90 50 
1783s AC91 01 
1784s AC92 24 
1783s AC93 00 
1786s AC94 FF 
1787s AC93 23 
1788s AC96 01 
1789s AC97 7F 
1790s AC98 26 
1791s AC99 02 
1792s AC9A FF 
1793s AC9B 27 
1794: AC9C 03 
1793s AC9D 
1796s AC9D 31 
1797s AC9E 31 
1798s AC9F 37 
1799s ACAO 33 
1800s ACA1 45 
l80It ACA2 34 
1802s ACA3 32 
1803s ACA4 34 
1804s ACAS 36 
1803s ACA6 39 
1806t ACA7 37 
1807s ACA8 53 
1808: ACA9 38 
1809s ACAA 49 
1810s ACAB 4F 


OUT 

NOP 

DEC 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

IN 

JR 

POP 

POP 

JP 

INOPLls POP 
POP 
JP 


(C) , A 
BC 

OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
OOOOH 
A, <C> 

NZ ,IN0PL1 

AF 

BC 

LFO 

AF 

BC 

LFO 


INOP*20 


SUB 


WORK 

LFO WORK 


TCCs DEFB 35H 
NOTE: ENT 

DEFS 12 
DEEPS: ENT 

DEFS 6 
STIMES: ENT 

DEFS 6 
LFOUDs ENT 

DEFS 6 
LFOPSt ENT 

DEFS 6 
t 

DEEP: ENT 

DEFS 6 
STEP: ENT 

DEFS 6 
TLEVELs ENT 

DEFS 24 
FVFLGs ENT 

DEFS 6 
LFOCONs ENT 

DEFS 6 
LFOWKs DEFS 1 

INTFAt DEFS 1 

INTFBs DEFS 1 

; 

j OTOZUKURI WORK 

; 

CURXSs DEFS 1 

CURYSs DEFS 1 

CURXSS: DEFS 1 

DATADR: DEFS 2 

NOBASU: DEFS 1 

KEYS: DEFS 1 

OCT: DEFS 1 

PARTNO: DEFS 1 

DATNO: DEFS 1 

> 

; OTOZUDURI DATA 

; 

DATCONt DEFB OSH 

DEFB 08H 
DEFB OBH 
DEFB OSH 
DEFB OCH 
DEFB OEH 
DEFB OEH 
DEFB OFH 
DATDATs DEFB 07H 

DEFB 33 
DEFB BOH 
DEFB 38H 
DEFB 35 
DEFB BOH 
DEFB OFH 
DEFB 11 
DEFB 30H 
DEFB 7FH 
DEFB 13 
DEFB 40H 
DEFB 1FH 
DEFB 19 
DEFB 50H 
DEFB 1FH 
DEFB 23 
DEFB 60H 
DEFB 1FH 
DEFB 27 
DEFB 7OH 

DEFB FOH 
DEFB 31 
DEFB BOH 
DEFB OFH 
DEFB 31 
DEFB 80H 
DEFB 7OH 

DEFB 11 
DEFB 3OH 

DEFB COH 
DEFB 19 
DEFB 50H 
DEFB 01H 
DEFB 36 
DEFB 0 
DEFB FFH 
DEFB 37 
DEFB l 
DEFB 7FH 
DEFB 38 
DEFB 2 
DEFB FFH 
DEFB 39 
DEFB 3 
;INKEY DATA 

DEFB 31H 
DEFB 31H 
DEFB 57H 
DEFB 33H 
DEFB 45H 
DEFB 34H 
DEFB 32H 
DEFB 34H 
DEFB 36H 
DEFB 39H 
DEFB 37H 
DEFB 53H 
DEFB 38H 
DEFB 49H 
DEFB 4FH 


|TIMER CONTR COM 
| F.NO DATA 
|LFO DEEP NOW 
ILFO 8TART WAIT LEFT 
|1-UP FFH-DOWN 
|LFO STEP COWNTER 

|DEEP (-0 LFO OFF) 

| STEP 

|T.LEVEL 

lLFO F.NO OR VR 

|LFO VR OP.NO. 

| WORK 
|INTF A 
|INTF Bs1-INT 


|HYOU NO CURSOR 

|HTQU CUR(OP DATA YO) 
1 IMA NO DATA TOP ADR 
INOBASU/NOBASANAI 
|KEY BF 
IOCTABU 
I PART NO. 

|DATA NO. 


iCONNO CR-1, MO—0 
I CONN1 
|C0NN2 
|C0NN3 
1C0NN4 
I CONNS 
1C0NN6 
|CONN? 

;CONNECT 


|F.BACK 


|MULTIPLE 


>T.LEVEL 


jA.RATE 


ID.RATE 


|S.RATE 


|S.LEVEL 


|R.RATE 


|DETUNE 


IK.SCALE 


|LFO FN/TL 
|LFO S.WAIT 
|LFO DEEP 
|LFO STEP 


I* 

; o 

|W 

13 

lE 

|R 

JT 

I V 
\7 

«U 

I 8 

II 
|0 


0 

1 

2 

3 


3 


8 

9 

10 
11 
12 

13 

14 


1811 

1812 

1813 

1814 
1813 
1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 
1833 
1836 
183? 

1838 

1839 

1840 

1841 

1842 

1843 

1844 
1843 

1846 

1847 


1848 

1849 


1850 

1831 


1832 


1833 

1856 

1857 

1858 
1839 

1860 

1861 

1862 

1863 


1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 
1873 

1876 

1877 

1878 

1879 

1880 
1881 
1882 

1883 

1884 
1883 


1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 


1899 

1900 

1901 

1902 

1903 


ACAC 30 
ACAD 50 
ACAE 41 
ACAF 5A 
ACBO 33 
ACB1 38 
ACB2 44 
ACB3 43 
ACB4 4D 
ACB5 2C 
ACB6 2E 
ACB7 4B 
ACB8 OD 
ACB9 20 
ACBA 4E 
ACBB 46 
ACBC 56 
ACBD 2602 
ACBF 4702 
ACC1 6902 
ACC3 8E02 
ACCS B302 
ACC7 DE02 
ACC9 0A03 
ACCB 3803 
ACCD 6903 
ACCF 9D03 
ACD1 D403 
ACD3 0E04 
ACD5 4C04 
ACD7 8D04 
ACD9 D304 
ACDB 1C05 
ACDD 6A05 
ACDF 4E4F 
ACE 1 OD 
ACE2 20202020 
ACE6 20202020 
ACEA 20202020 
ACEE 31202020 
ACF2 20322020 
ACF6 20203320 
ACFA 20202034 
ACFE OD 
ACFF 20434F4E 
AD03 4E454354 
AD07 20202020 
ADOB 20202020 
ADOF 2D2D2D20 
AD13 202D2D2D 
AD17 20202D2D 
ADIB 2D 
AD1C OD 
ADID 20462E42 
AD21 41434B20 
AD23 20202020 
AD29 20202020 
AD2D 2D2D2D20 
AD31 202D2D2D 
AD33 20202D2D 
AD39 2D 
A03A OD 
AD3B 204D354C 
AD3F 5449504C 
AD43 43 
AD44 OD 
AD45 20542E4C 
AD49 4556454C 
AD4D OD 
AD4E 20412E52 
ADS2 415445 
AD35 OD 
AD56 20442E32 
AD5A 413445 
ADSD OD 
ADSE 20332E52 
AD62 415445 
AD63 OD 
AD66 20532E4C 
AD6A 4536454C 
AD6E OD 
AD6F 20522E52 
AD73 413445 
AD76 OD 
AD77 20444354 
AD7B 554E45 
AD7E OD 
AD7F 204B2E53 
AD83 43414C45 
AD87 OD 
AD88 4C464F 
AD8B OD 
AD8C 20464E2F 
AD90 344C 
AD92 OD 
AD93 20532E57 
AD97 414934 
AD9A OD 
AD9B 20444545 
AD9F 30 
ADAO OD 
ADA1 20533445 
ADAS SO 
ADA6 OD 
ADA7 204F4354 
ADAB OD 
ADAC 4E414D45 
ADBO OD 
ADB1 4E454932 
ADB3 4F 
ADB6 OD 
ADB7 4C4F4144 
ADBB OD 
ADBC 53415645 
ADCO OD 
ADC1 434F5059 
ADCS OD 
ADC6 45584934 
ADCA OD 
ADCB 3E3D 
ADCD OD 
ADCE 20202020 
ADD2 20 
ADD3 20202020 
ADD7 20202020 
ADDB 20202020 
ADDF 20202020 
ADE3 202020 
ADE6 OD 
ADE7 46494C45 
ADEB OD 
ADEC 3D3D3D3D 
ADFO 3D3D3D 
ADF3 OD 


1904 

1903 

1906 


ADF4 FB 
ADF3 C30O1F 
ADFB 


DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

KEYDATs DEFB 

NOTDAT t DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 

Mis DEFM 

DEFB 

M2: DEFM 


30H 

30H 

41H 

5AH 

53H 

5BH 

44H 

43H 

4DH 

2CH 

2EH 

4BH 

ODH 

20H 

4EH 

46H 

56H 

0226H 

0247H 

0269H 

028EH 

02B5H 

02DEH 

030AH 

033SH 

0369H 

039DH 

03D4H 

040EH 

044CH 

04BDH 

04D3H 

031CH 

036AH 

'NO' 

ODH 


M3t 


DEFB ODH 
DEFM ' CONNECT 


DEFB ODH 

M4t DEFM ' F.BACK 


Mill 

M12t 


ODH 

' T.LEVEL' 


ODH 

' S.LEVEL' 


Ml 4s 
MIS: 


DEFB 

DEFM 

DEFB 

DEFM 


ODH 

'LFO' 

ODH 

' FN/TL' 


M16t 

Ml 7s 

M18t 

M19l 
M21: 
M22: 

M23s 
M24: 
M23: 
M30: 
M311 
M26: 
M2 7: 


DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFM 


ODH 
' OCT' 
ODH 
'NAME' 
ODH 

'NEIRO' 

ODH 

'LOAD' 

ODH 

'SAVE' 

ODH 

'COPY' 

ODH 

'EXIT' 

ODH 

ODH 


M28: 

M29: 


DEFB 

DEFM 

DEFB 

DEFM 


DEFB 

EIBKEY: El 


ODH 

'FILE' 

ODH 


ODH 

1FD0H 


O 15 
P 16 
A 17 
Z 18 
S 19 
X 20 
D 21 
C 22 
M 23 
, 24 
. 25 
K 26 
CR 27 
SPC 28 
N 29 
F 30 
V 31 
3 «A 

3 B 

4 C 

4 »C 
4 D 
4 «D 
4 E 
4 F 
4 4F 
4 8 

4 ftG 
4 A 
4 «A 
4 B 
3 C 
3 #C 
3 D 


2 


3 4' 


(SET KEY 


► XlFO)f) l {llUttzt'C, XlturboII =X1G 0 7*7 v ^limited. I 

X XI turbo II =X1G — limited 0 * ?*/ a tz 0 t b b If li U 

tm mu (i9) 


FMFir-f ? 159 












Exercise 2 


6iM(DMMltmnz£>D 


Izumi Daisuke 

& 



iiulIUiLD,CALL0 2 00i^Of£ffl>££mLi L fc. Z80li 

Uitz? tl'im SO,* -fttHifcftA 

■fSOtfLDOaST-f. f LTBASICOGOSUBC:S>fc5fc<75, C 
fttfCALLft. r CALL IFC4 hj I FC4hS itW'Btt U i 

5 Lit. S-OS<7)IFC4 H #ife(c 

li BEEP^fci# F> f t7jU—7- >a'A otl'itfrib, r CALL 
!FC4 hj 

/ £?l*75?a>;i5B 

. ?t, ^mttZMrr&aRUfrWtti**. 2 

on#tts;ti { -a, ^fSffliliS:tif wrnt 

Lit. L05 UfeSi&»(:ouTfi;A4ftS7 L t c Lt, 4 
0ii3M&iR3l$r4 , 'i>i: 7 7ff)S£t4tttli!il4jt«>ti.'t‘ i 

L i 7. 

$t#fr0£^ts t ic&lf&tftifis ;: t a ? ti 4 i' {> ©* ? 
SHt. ^nit7 7^"-r'-to 77tt i' 7 m&ML <•' Sitf-t', 
tL5*«i:Sg5ftoTi'it. I'fclf 
•? ^"7 5 5 {> Of, 7 7 7"Ol£i'4 

A 11,'i £ lit'ft. ^5/^ 
S'Jt 5#ii^^>Ig5rSi]tSj tu5iblifto 
v-7"xf liA~L i tf> i) ita ? , ?-n^nOw^Xitt:Ati 
S L tof i iftlii' < < oif/'oti-tit i t*>. 

£5, oo H ~FFnttto. 

fit, ffhcoih 5rJnxs tt'7 4s fcJBi'it ? **4 6 
FFh+01h = 100h t 4 & t Z h 40ft *' ; , 5HiFF H i:0lH4-in x. 
5 fcOOHlifcof Li 7 Oft. ZMi£5 L fc: t*\ ti'i'i 
ft, ^ftLOJ: 7 (:n7'xf Cttl6itf 2 titOSc L *>AftS L 
t* f f & if A. Kf FFh + 01h = 100h 11' 7 i§ : x.OT2ifr4 
tot lifOOHt^SOff. :ctl, £i I) ±ii f 0 *'$) 7 1z X 
(t-A'-7n-) 11' 5 Effl®* 5 3;t> i t (-b 7 h $tiS)o L 
V 7 7 h«f ’tfit. ife£<) Jr.** *) **'4**7 tzVkte, 4r-v 

!> 7 i-a-Ad;-fc 7 FSixS). Riti:00H*-G01 H ^?l 

( ttf 4 4**. 4^liFFHt:^oT Lil'it. 00 h*'£>01h 4 
31 < o 3l:pi:UtU li3ltiitAta, k :f ioo h -oi h = f 
160 Oh! MZ 1986.1. 


Fh t L f, lffOiLA’J: (7>**-7n-) t <•* 7 l 4 l Cj* 
frit it. Ltifef 7 ') 77t'ft. 

oi *)*vV yynt, *Rtutt#4L4i'ffiS0 3lfrgu*S 
iili'H'Sot t i, ffiH03ffi-g*'C, iff Of i4t ictfc 
oti-iit, 

L 7fati'0i‘t-SLit* ! , :Oiii:L -7'x ^OfifiSriiSn 
Sffl'< t, -,FEh, FFh,00h,01h,- t $6 o fl> & i f„ « 
W^TL < t, •••, 00 h, FFh,- - O X 7 C4 0 if o 
ifEOiS^, ^^x^ofjt*>ooHi:4s z t* ? £i if too ;« 
t & C f) «&**i Ut. w ft* s -t" 0 7 7 ff f o *S** j 00h i: 4 
f> 4 i*t & li-trn y 77'li !> -t 7 b $ ft i f. . 

w-7'x*Ottfciiin-«4'3tti.'< t iO&ffci IfttBl 
c^Lif„ 1 * 0 , t'A4 , 7 7 7"* i 'Atoo*>, 11.'7 l t 
LTlf < K% I'. 

BU@Ofc|g?fi-<®tAt< /L'SofcJSFtt, L Lif if rfe 
-ta-CfibHLta-BClit' 7 40 ? j t 
o4fLi7o 7 ~ A* 4 fc liftoff to. V'7 ? X7^7, HL, 
DE,BCIiOOOOH~FFFF H OttL*'tix4i.'C tlifeSSLi L4„ 
ti'7 L tli, OFFFFHO;A(iOOOOH4Affio tCA* s ! 
7 7 7"ii#St'U4i.'ttt)4^ L i f„ ^4toa*ta4i'0 
itot, t:ti:lilii. 

sun, §l$* 


Z80O#»iKi[(:li<AOJ: 7 4 t.O* f * 0 it. 
• IrnU ADD, ADC 

0 1 l&W&ty^yomt 
















• iltlf SUB, SBC 

• mu inc 

• ST* DEC 

1uftg, l&3?ftffl:iSftTt.*i-tf-A,o *31, WM* 
t *) tz i' t ^ u«, i^-c'7°n^"7 t 

&i'©T't. Z if)I^4 t IT, gTH)-©!^*'L 

Tl'> i L <t 5. 

**( 1 ) 

—<£ ; A 1 >-:- 

ADD A.m tnUA~L, 2ftC016it*j[, (HL) 

ADD HL, rp rpliBC, DE, HL 


ADD U 7 FZtzltr -y K fctyt*. Jnx.4 fc<.'5jtR*ft. fct 
ilif, 

ADD A, 20h 

ii, A = A + 20 HtiOit. in3fl/j*£*ITT>t AiTtiHLi: 
AM to AfcHL* s !|#SiJ(:tR i bftTi.'4©* f .b*>9 it**? 
ADD B, D 

ADD DE, BC 

i i*5^(*#£L4:i.'©ft„ Tt*'t> r ADD B, 

tzutur&vx 5 0 itA.„ 

LD A, B 

ADD A, D 

LD B, A 


^ii l tzo mi x 5 t<.* 5 t© 

ft. START0g|5'9-t'BtC(:Anti.'5tt4 > ii^(:^jLTISL 
"CAT < 77$ <■'„ 7°n 7"? A ft' 3 — A- L T1* 4-t7Vw — f-y li 

s-ost©t7V-t>-ft. 

Kit. *fti*PRTHX 
ft. 6 H^-©P.39©ii±i:Ij£W2b 5 i t* s , £©ffi34*£t:?,: 
t'ot < I;'Si' s v-7'x75£«© fc Z A* S AF t fto T1* i tfa. 
11* 5 Z t li, - ©tTV—?■> $r 3-A-t 4 fc A ©F^^SEt 


oT L i 5 ©ft. <SC 
LD A, 1 

CALL PRTHX 

11* 5 7°n 7*7 A frffltf t L i tto. £ 5 t 4 t iSBCOl t 
Lit**, fc&D, <kr. r A DD a, 2 j l*> 

T4 t L i5:ut^it. ifrf'/o/ 

Mfcffltj-i §>(:«, z©v-'Tx*5&!g(:fi< ft<*ft{,It#.LT 
< 77$ i*ta. 

«1 w^x7-<7 (HL, DE, BC)©Ijt b 

««t 4 b ©f ft 4 Z t £(«*■* 4 Z fc**f Sit. &St«l 
TAT < 77$ t*. 

Sc® (1) 

-<£& 2 >- 

SUB m A=A-m 


SUBftt7'i h x 7 h tI%A, ?| < 11* 5 f;»*©3lfS 

Subtract ©«Sft. 4*® I* r SUB A, mj tli*l*T*0 1 T 
Aft. &-tf*> t t* 5 t, r SUB HL.rpj fc<,*5l6tf? h©«JTtt 
ffl*$t-Tl*^i.'A6!>, r SUB A, mj t 6 $'ft $' ♦*>& < T b , 
r SUB mj?7ttffc**4**F>&©ft. 

t&J 1 f 15ft 125ft %• LIT© J: 5 t: * $ & x T T ft I*. M3f * L 
?.:*#£•© wiRx7©fit©^*’!,4 Z t* ? T'It it. 

800B 3E 2D 15 LD A,’-’ 

8023 91 25 SUB C 

ang (2) 

-<3t>4 3 >-- 

ADC A, m A=A+m+CY 
ADC HL, rp HL = HL + rp + CY 

CY(J+i> 0 7 5 X* ! HoT'.'4 t £ I, T* Ti'tttltfO 


Z©tSMH*7 KA-7 V i A(J7 R?M x"A-ir !7 tMAit. t 

7 V 7 7 7"**aCoTi.' 4 t & Cii, iif;®ADD®g;i i:J(.i:l 


tti4ti*5i(^Lit. 


itSBi £11 (ADC) 




0000 

1 ; SAMPLE-2 



0000 

2 ; 




0000 

3 




8000 

4 

ORG 

8000H 


8000 . 

5 

; 



8000 

6 PRTHL: 

EQU 

1FBEH 


8000 

7 LETNL: 

EQU 

1FEEH 


8000 

8 




8000 21 FF 01 

9 

LD 

HL.01FFH 


8003 3E 02 

10 

LD 

A,2 

A=2 

8005 85 

11 

ADD 

A, L 

A+ = FF CY =1 

8006 6F 

12 

LD 

L, A 

L=01 

8007 7C 

13 

LD 

A, H 

A=01 

8008 CE 00 

14 

ADC 

A, 0 

A+0+CY=2 

800A 67 

15 

LD 

H, A 

H=2 

800B CD BE IF 

16 

CALL 

PRTHL 


800E CD EE IF 

17 

CALL 

LETNL 


8011 

18 

; 



8011 21 FF 01 

19 

LD 

HL.01FFH 


8014 11 02 00 

20 

LD 

DE, 2 


8017 19 

21 

ADD 

HL, DE 


8018 CD BE IF 

22 

CALL 

PRTHL 


801B C9 

23 

RET 




:nf r ADD B, Dj iRi;*g*«r1*4Zfc**f&it. 


#J 1 


0000 




1 ; SAMPLE-1 


0000 




2 ; 



0000 




3 



8000 




4 

ORG 

8000H 

8000 




5 

j 


8000 




6 PRINT: 

EQU 

1FF4H 

8000 




7 PRNTS: 

EQU 

1FF1H 

8000 




8 PRTHX: 

EQU 

1FC1H 

8000 




9 

; 


8000 

06 

FF 


10 START: 

LD 

B,OFFH 

8002 

OE 

05 


11 

LD 

C, 5 

8004 

78 



12 

LD 

A, B 

8005 

CD 

Cl 

IF 

13 

CALL 

PRTHX 

8008 

CD 

FI 

IF 

14 

CALL 

PRNTS 

800B 

3E 

2B 


15 

LD 

A, ’ + ’ 

800D 

CD 

F4 

IF 

16 

CALL 

PRINT 

8010 

CD 

FI 

IF 

17 

CALL 

PRNTS 

8013 

79 



18 

LD 

A , C 

8014 

CD 

Cl 

IF 

19 

CALL 

PRTHX 

8017 

CD 

FI 

IF 

20 

CALL 

PRNTS 

801A 

3E 

3D 


21 

LD 

A, ’ = ' 

801C 

CD 

F4 

IF 

22 

CALL 

PRINT 

801F 

CD 

FI 

IF 

23 

CALL 

PRNTS 

8022 

78 



24 

LD 

A, B 

8023 

81 



25 

ADD 

A,C 

8024 

CD 

Cl 

IF 

26 

CALL 

PRTHX 

8027 

C9 



27 

RET 



5fctit\ i^X7©fiiij:<'4 <"4ifilt 4 b©f 2b4 Z t 4**3 
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f?i] 2-C'ti01FFH + 0003n £ f-o t^tk l T ^ i L A„ Pll': t 
%19'fm\ C-? MiDESr$LTli 5 t ^ 
? r* ) y b t'$) t + ) ftS 0)1)n&V>* ') h It, li*‘ 


CD w-.7 x* ©fit £ it St CjnljCt' S 6 A' It Tit # 0 i-tf-A, 0 


ill 

321 *7 !-<7>£l3f 




0000 




1 ; SAMPLE-3 



0000 




2 ; 




0000 




3 




8000 




4 

ORG 

8000H 


8000 




5 




8000 




6 PRNTS: 

EQU 

1FF1H 


8000 




7 PRINT: 

EQU 

1FF4H 


8000 




8 PRTHL: 

EQU 

1FBEH 


8000 




9 




8000 

01 

34 

12 

10 

LD 

BC,1234H 

; ftX' 

8003 

11 

00 

FE 

11 

LD 

DE,0FE00H 

; 1234FE00 H 

8006 




12 




8006 

CD 

39 

80 

13 

CALL 

@PRNT 


8009 

3E 

2B 


14 

LD 

A, ’ + ’ 


800B 

CD 

F4 

IF 

15 

CALL 

PRINT 

; PRINT M +"; 

800E 

CD 

FI 

IF 

16 

CALL 

PRNTS 


8011 




17 




8011 

ED 

53 

47 80 

18 

LD 

(WORK),DE 

; (WORK)=E 

8015 




19 



; (WORK+1)=D 

8015 

ED 

43 

49 80 

20 

LD 

(WORK+2),BC 

; (WORK+2)=C 

8019 




21 



; (WORK+3)=B 

8019 




22 




8019 

01 

00 

00 

23 

LD 

BC, 0 

; *xax* 

801C 

11 

00 

02 

24 

LD 

DE.0200H 

; 00000200 H 

801F 




25 




801F 

CD 

39 

80 

26 

CALL 

6PRNT 


8022 

3E 

3D 


27 

LD 

A, ’ = ’ 


8024 

CD 

F4 

IF 

28 

CALL 

PRINT 

; PRINT 

8027 

CD 

FI 

IF 

29 

CALL 

PRNTS 


802A 




30 

; 



802A 

2A 

47 

80 

31 

LD 

HL,(WORK) 

; HL=*?W' DE 

802D 

00 



32 

NOP 


; t-* 

802E 

19 



33 

ADD 

HL,DE 

; CY = 1 

802F 

00 



34 

NOP 


; *tt 

8030 

5D 



35 

LD 

E,L 


8031 

54 



36 

LD 

D, H 

; DE = HL 

8032 

2A 

49 

80 

37 

LD 

HL,(WORK+2) 

; HL=*tl 'K BC 

8035 

ED 

4A 


38 

ADC 

HL, BC 

; HL+BC+CY 

8037 

4D 



39 

LD 

C,L 


8038 

44 



40 

LD 

B, H 

; BC = HL 

8039 




41 




8039 

69 



42 «PRNT: 

LD 

L,C 


803A 

60 



43 

LD 

H, B 


803B 

CD 

BE 

IF 

44 

CALL 

PRTHL 

; PRINT BC 

803E 

6B 



45 

LD 

L,E 


803F 

62 



46 

LD 

H,D 


8040 

CD 

BE 

IF 

47 

CALL 

PRTHL 

; PRINT DE 

8043 

CD 

FI 

IF 

48 

CALL 

PRNTS 


8046 

C9 



49 

RET 



8047 




50 




8047 

00 

00 


51 WORK: 

DEFW 

0 


8049 

00 

00 


52 

DEFW 

0 



H!l 3 T!t32t’' -7 hft^ScCDaii:, 1234FE00 ii+200h£ j Po T 


i-it. lOffC'BCDECScSrftA, «jjilAAfc, 18 (tT'W 0RK 
Ctotfelit. 21ft-rSt>'BCDE(:S^ftA 0 CCDBCDEi 
AtiWORKi: t 7Ttei'A»0an3j^29fra‘£fir<.\ 

IT'JfoT < 6 t l> 7 7 °n A-t'-fo 7°o t'x ArficDfffI#PJr*‘ 
T T CALL ©PRNTjt^o-Ci'itfco @PRNT 17 7^^ 
«mi 3 cD**->b 0 ® li 7 i: ft S >T', c ft(tt/,* f fF-o A 

fccDT't. :0i5i:thlf, 

^tsct* f r's sot'-r, laristi§]c^tti-sr*< b l 

i'_hi:7‘D/7 A {) AS < 4-0 T L i I' i i - *- lifeo 
mj3 S-a-Cfoh* 1 0 CD J: 7 C,7°n^7 A4n;LD^©Mt £ 
I'd t*‘ 0 i&l'TCALL^Mt&'^l'T'l J: 7 ? »7 *b^7 

a t lie KU {>(»?', At£LD, CALL**,‘it?)-Ci'it. ft ft, 

L X oWf&ULDfcCALLfc^oTLio A© It, CCDi2©*1f** 
*o4'*> C, A©t'to 

C ©mj 3 £'>lf¥l < atAi L i 7 o HtflCBCDECtfc^l 
Tc- $cDli r S.S ftSSofto <fe.U@PRNT*=*-^ LTi' it, 
::r, BCfcDEiiAoTC'SftMattTgtTKl ittao IAi: 

T < 6<t7(-f'^'Ci'ii‘o r + j 
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A# t x*©ft$fcWORKi::toTi>'S £ t„ 
4-tf r LD (WORK + 1), BCj t IT4(.'©*•„ AH^T'ib'ISL 
LH A to o Si'iU l T < A'S i'. 

iA’Ufft/BCDECfiS^wlA LTPito ^#li r St»j ft. 
@PRNT4=2-/HTStkI a* t, r =j^/D > h Iti'it. 

§t, c c*-ii* { ^ia©0iT'-ro 
r LD HL, (WORK)j t'A<: J -* ) C t o Tfei> A D E 
HLirAHt, £Jn5»0T4||fTtfa. o i D HL = FE00 h 
t 4 D i to C iatDE4SLT & tto„ HL = FE00 h+0200h = 
OOOOh t 4 0, ffcg© 5 tff § 0 ±* f I) i ! 4oA i, 7 

yr^iLt, t t(* 7^oT*4CDA')o ff*g L A*Sft£D E I:S 
It, ^)Ktt±4«f©ft^t:A0 *t„ 
r LD HL, (WORK + 2 )jT’HL = 1234hI- 4 0 it. J£t&©±4 
tfrti OOOOh -rt*‘f., HLtJ£t t 1234 h ? 1’X.V*-. ££ 0 ±* ? 

y * s *-? A©4\AtoT!i<.'lt i tA 0 H0_h# 5 'y fcffgcAtoS 
A*C r ADC HL, BCj i ! ffiot*50Tt. 

* s a£oT i t*‘<i, AJ£3T'CY=1„ HL + BC + CY = 1234 h+ 

0 +1 = 1235 Ho C©fl[* ? HLt:A y it, ^^BCCR-IT @PR 
NT«ra-^ts t, W-||ai6iMr*wLit.T4'«rc!>tHr©IS* 
tlD±**')**4i.' fc SI* ? CY = 0 Tt *• tHL+BC+CY = 
HL + BCT'ttoo i«-faS4*«r r £t»j f r £StoSS:j 
i:SS:ALT7 0 n^"7A4iIoTAT < A?i'„ ffiliflL': 
fct'li* 0 i-tAOT'So fcSIW-t'S 4lttT'to 
iif 2 tPlrNOP (/-t^V-j/aV, Ml) L 41') * ! 'AtiT 
*Dit* s , C 4xltXffi4 OAfeT'to 7°n^"5 A0jitiUlti 

-oA < Hf#t f 4i>cDT', tr%atfA'ltfft>JiA-A'f., »ILT< 
A S ^' o 

iS3f (2) 

—C3t>* 4 5- 

SBC A, m A = A —m —CY 

SBC HL, rp HL = HL —rp —CY 

CY(**7 'J 77W±iTI' 5£ I. T7 Tttl'fcO 

C ixlitft ir V (-t7"t 4 x> T y , -t7" I'77ht4t>-t 

y ) tlAit. ^Itltt-Y y 7 7/i i 4otl'S tiIS 0 SUB 

f.1: 1 4?IS it. 

t 7 lAfL iL i 7 ft, SBCi:ltl6t"7 
































V z cofto !> 77mo-a' 

r SBC HL, BCj lt r SUB HL, BCj 
lifti-A-ft t) t |5li:'iii^4 , LT<in.sti.'7C t-f’it&t.'*-! 
t 5 ft If T*. ^M«:HL**c,BC5r5ISfci> t t> »:ltifc©«fc 5 ft 

OR A 

SBC HL, BC 

ORii.'?<DlZ<k®MWtZ>mwffiW.^<DU'L'i'C\ r OR Aj 
ftlt^-v V ?7?te ]) -t -7 h ts®&*** 0 it. 
x.tfM«=CHL-BC4’tHSCtr& 5 11'5 fcJttrto 
$i 3 ©uTofr5nEHfmf, 32 1"-7 i-®ai7 , B/7A®f 


& £* ? 9 ft. 

8009 3E2D 

14 ft 

LD 

A,’ 

802D 

B7 

30 ft 

OR 

A 

802E 

ED52 

31ft 

SBC 

HL, DE 

8035 

ED42 

32 ft 

36 ft 

SBC 

HL, BC 


/ SSJHSOtt* 


ri )iot 3fg§-a-tr 

I'ftj t *’ r B fc-lO-fS L "Cfc If ftl'jt *‘.©5 C i * f * S tT £ 5 ? 

3?Pf 5 A.?'9tSli t'ffifSft *> 
O-C'to ifc, t> £ o t L^SHt*C©^«f)i:, b&to&tA,*® 
i^tJ0^ f t(.U':ttLi5,K-f, ffi^ftSHlgOe 
»)®f±J^;:taiit^j: tait. 

ADD A, A 

3tiiiA=A+A%-^s^ir'LL-ta„ «jS**$.i:*sfc,wi: 
fe©££t©(t2f£t S®tln]L- t, oiDA=Ax2t|S]L-. 
tATti'5 - fcufctt&it. 

ADD HL, HL 
ADD HL, HL 

t l' 5 i 5 i: ADD £20^ 6 t, 2 IS Lft *> ©*■ $ f. t: 2fSt ft 
■blltt*-^ 4 IS l ft© tPlt ^ t Cft 9 i to ADDftSHI^S 
fc 8fS, 4@-fl6fSo C©1 5 i:#i S t64fS J P 128-fSftATt 
<* i-f% it too 


fit, 3 1st S t I It £ •? L i L £ 7 o 3 f&C Itf5i] 4 © £ 5 & t 


EH 

3« 







0000 



1 

SAMPLE-4 



0000 



2 

; 




0000 



3 





8000 



4 


ORG 

8000H 


8000 



5 

PRTHX: 

EQU 

1FC1H 


8000 



6 

PRTHL: 

EQU 

1FBEH 


8000 



7 

LETNL: 

EQU 

1FEEH 


8000 



8 





8000 



9 

; A = A 

* 3 



8000 

3E 01 


10 


LD 

A, 1 

; A = 1 

8002 

47 


11 


LD 

B, A 

; B = A 

8003 

87 


12 


ADD 

A, A 

; A *= 2 

8004 

80 


13 


ADD 

A, B 

; A * = 3 

8005 

CD Cl 

IF 

14 


CALL 

PRTHX 


8008 

CD EE 

IF 

15 


CALL 

LETNL 


800B 



16 

; HL = 

HL * 3 



800B 

21 00 

10 

17 


LD 

HL,1000H 


800E 

5D 


18 


LD 

E,L 

; DE = HL 

800F 

54 


19 


LD 

D, H 


8010 

29 


20 


ADD 

HL, HL 

; HL *= 2 

8011 

19 


21 


ADD 

HL, DE 

; HL *= 3 

8012 

CD BE 

IF 

22 


CALL 

PRTHL 


8015 

C9 


23 


RET 




ftHSi.' i to 

10ft* 1 li It A 3? 3 IS, 17ft*> C, ItH L 4- 3 IS L t i to C ft It, 
Ax3 = A X2 + A, HLx3=HLx2 + HLt#i-C^1t-rto w © 
#&i:H-oTMIitftli\ #5g]$©#HlSfft Ul^-c^s:: t 

* ? -r'§> i to 

Ax2=A+A 
Ax3=Ax2+A 
Ax4 = Ax2x2 
AX5=AX2X2+A 

AX9 = AX2X2X2 + A (HL4IWHi) 

LLtlt, M4(0 i 5 cMtm A<DMfr i' >>’ z ? c =>t°- l 

Tbi'tti: t -rust'll i to ^LCAx93f^>ot^5 fc. 


5 ©t ? eft 9 i to 


B 9 ® 







0000 

1 

; SAMPLE-5 




0000 

2 

; 





8000 

3 


ORG 

8000H 



8000 

4 

PRTHX: 

EQU 

1FC1H 



8000 

5 






8000 

6 

; A = A 

* 9 




8000 3E 01 

7 


LD 

A, 1 

A 

= 1 

8002 47 

8 


ED 

B, A 

B 

= A 

8003 87 

9 


ADD 

A,A 

A 

*= 2 

8004 87 

10 


ADD 

A, A 

A 

*= 4 

8005 87 

11 


ADD 

A, A 

A 

*= 8 

8006 80 

12 


ADD 

A, B 

A 

*= 9 

8007 CD Cl 

IF 13 


CALL 

PRTHX 



800A C9 

14 


RET 




6 IS, 7 IS, 

10fS b % £ 

O tI^lT^ftlt''li*>©v'-£ > 'x*£- 

1 ffl L ti'm. $1«: L X ? Z Z 

t* f t'l> ito 



6 iSIt, 

(AX2 + A) X2 





7-fSlt, 

A x 2 x 2 x 2—A 





lOfSlt, 

AX2X2X2+AX2 




US 6 - 

^5 

CO 

r*- 






0000 

l 

; SAMPLE-6 




0000 

2 

; 





8000 

3 


ORG 

8000H 



8000 

4 


; 




8000 

5 

PRTHX: 

EQU 

1FC1H 



8000 

6 

LETNL: 

EQU 

1FEEH 



8000 

7 






8000 

8 

; A = A 

* 6 




8000 3E 01 

9 


LD 

A, 1 

A 

= 1 

8002 47 

10 


LD 

B, A 

B 

= A 

8003 87 

11 


ADD 

A,A 

A 

* = 2 

8004 80 

12 


ADD 

A, B 

A 

* = 3 

8005 87 

13 


ADD 

A,A 

A 

*= 6 

8006 CD Cl 

IF 14 


CALL 

PRTHX 



8009 CD EE 

IF 15 


CALL 

LETNL 



800C 

16 

; A = A 

* 7 




800C 3E 01 

17 


LD 

A, 1 

A 

= 1 

800E 47 

18 


LD 

B, A 

B 

= • A 

800F 87 

19 


ADD 

A,A 

A 

* = 2 

8010 87 

20 


ADD 

A,A 

A 

*= 4 

8011 87 

21 


ADD 

A,A 

A 

*= 8 

8012 90 

22 


SUB 

B 

A 

*= 7 

8013 CD Cl 

IF 23 


CALL 

PRTHX 



8016 CD EE 

IF 24 


CALL 

LETNL 



8019 

25 

; A = A 

* 10 




8019 3E 01 

26 


LD 

A, 1 

A 

= 1 

801B 87 

27 


ADD 

A, A 

A 

* = 2 

801C 47 

28 


LD 

B, A 

B 

= A 

801D 87 

29 


ADD 

A,A 

A 

*= 4 

801E 87 

30 


ADD 

A,A 

A 

*= 8 

801F 80 

31 


ADD 

A ,B 

A 

*= 10 

8020 CD Cl 

IF 32 


CALL 

PRTHX 



8023 CD EE 

IF 33 


CALL 

LETNL 



8026 

34 


; 




8026 C9 

35 


RET 
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t^xT7°n7"7 A LXf) •) i to 4 ®-f, - 

ii& 7 i < ? A‘* 5 'il t4Hto 

4 4 t:*if/4 2 ~101%X', SStgcoi'TItit 4 tJ£0 41* 
Li?„ VRAM©7Kwxft»:(:!£:>S^40f§, 80fg4, 4©#i£ 
i&m-ttitft (MimastJEi'it. yxhs-a-rg^-fif^ 


LX&X < /'Ji'o 



*fcltw$>x *&£©** Ml* L/4 y l®f. 1/4 y t4#i£ 

-ft. INCIi t 7 7 y 7 V h DECItr"7 y 7 > h t i t. 

3-A = 34 H /4*t L it fa. r INC Aj 4-^4 t A=35h i: tt y i 
■to -t*0777t4ff !) 77 7"lt ? £ 7 , t't) t y -t 7 F S 

Hit o B = 0 © t I t: r DEC Bj£t>4 t £ 7 4- 4tL i 7. 
BltFF H fc y 77/i ! iU 

HL = FFFFnt L it. r INC HLj ^fto/:t^©77/0 


LD HL, 8000h 

LD DE, 8000h 

ADD HL, DE 

COISII, HL=0000Ht & 0 47 y 7 7 7i { 4t) it. U** ! , 
HL* s 0 Ufc-sfcU 4 i'ittf-t'D77/llit,i tA. t l' 7 
t y^'ftL^i'CO-tto fii:t‘B77Wi7-at tt4 t, 

^ ti'5: 

l r.ti y It. RjrfrtSRUt, Si5ri< at g#*^7ifr 
'B'CWt 5 7 yfOUHtte t < PH t-fig 7 i5i:LIU7. 

It 4 * ? -Jt a O -7 *>*' 4 op^'* ? INC t DEC-t't o 
LD A, FFh 
INC A 

^^4 L y^-fe"p 7 7 7"* t ;>£t> i tfa. ZtUiX'.'CD-Cttf* 
7 y 777'lt^'ftL itA. 4 7 r INC rpj, r D 

EC rpj-f, y 4-fc"o 4^'ffcl&<.'©'ft. £faC 

?^ni>7To t;4co 7 *>?ffJISft4©*>„ 4 tu:it£ 
y I to &IIl©f*ia©+-fisl£Lt4 4 tULI L I 5. 

i 7 y% i l/4. 77 
m-o-ty^n, I'o y-t -7 h $n4co*'o iiasite 
^0t0i:Ltbi'-t( It’-iT 4t^Tlx 4£>glt 

* y H/lo cuBTOBt 4 i 7 t:ttilt'gf*t#ctt 


^ffcltif 7 &4-f L i 7o l >7 y tt'B077/i ! i4 I tj t 

gtA-^itt i -f ©iS3r+#i:aft?& $ o x i' 4 trc'to 

l-b'lfjtfC,, z ZX'% X 7 t & U 

ftlffc y itfA. Isfitr, H^x^TCttt 4)Sl3f-f It77 
^^-nt&i'&t^fct 4j t l f < At 

$i'. nit r INC HLj Wot 4 77t"lt5g|LL^;i.'©-c"to 
*n/ft/-fit&<, aco r DEc bj -f 4*+y 7 77'it^ffci 
-c < ni-tA. 

7 7 7"* J ’£fl: L 4 C'fc C' 7 ©It 
r INC HLj ©U© 7 7 
tfzcDi i ffc#sn4 
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OD 
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20 
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20 
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MESB1: 

DEFM 

"BOY : " 
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OD 
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813D 

47 

49 

52 

4C 

20 

3A 

20 

145 

MESG1: 

DEFM 

"GIRL : " 


8082 

CA 

8E 

80 

74 


JP 

Z, PRT 



8144 

OD 







146 


DEFB 

ODH 


8085 

3D 



75 


DEC 

A 



8145 








147 





8086 




76 

PRTSB1: 





8145 

00 

00 

00 

00 

00 

00 

00 

148 

BN: 

DBFS 

10 


8086 

D6 

07 


77 


SUB 

7 



814C 

00 

00 

00 










8088 

D2 

86 

80 

78 


JP 

NC.PRTSBl 



814F 

00 

00 

00 

00 

00 

00 

00 

149 

GN: 

DEFS 

10 


808B 

C6 

07 


79 


ADD 

A, 7 



8156 

00 

00 

00 










808D 

3C 



80 


INC 

A ; A 

/ 7 + 

1 














808E 




81 

PRT: 


















808E 

87 



82 


ADD 

A,A ; A 

*= 2 
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SttlOn^C.m® L 4 BASICS^ 1 6 mX'U v ^ t ±0) 7 

7 > £ ^’—j tftLt- , '"y3>/77/( t x AH 5rLH 4*\ 
3* Eli i> 5 *> J: o t^aAfAfci' t-fx' 4 to —v&j® 
©4S^fctx7©{1si3<;i£4W&L4 U5o ©It^li^ 
HU’CD-r, tKNpSSt^t LT#SnLT < /'3i\, 

x^^t^T" n ^7At L T Xfl^y 7 h r <" G-i, < Aj 

4fto-CA4 L4» 

|| mmmm 

’85t-10fj 5y<D'l Mi! 4 t 0 * A t't 4 -tt 4 L J: 7» '■>”7 x 7 7"y 
7 4 7 XU, **;y 7 ZWMV>Wft Efc&^fEx4 Z 
X\ iktbX^y t-MLT < i'Si*. 4 to, *£*t>-tMZ-1500ffl 
S-BASICIi(S15) tat: till it, 

® 7"x7-f Xx@®cofH^ 

BASIC42IMHjjiteliliill 4 t A.©-f, <*C©^£a s 7°n tx 
Aomr^c^t'ii'W-rto 

(Hu) SCREEN 0, 0, 0 : WIDTH 80 
(Sl5) INIT “CRT : G” 

® .&4tTo 

' y 3 > © 0® 14^320 X I&200 K x h © t $ 4id 0 t: 4 o X i' 
4 t(MZ-i500LW4640x200 {>£4)o -©J$H, 141> *>t-7' 
7a7li (tJC-fiiHig, TcEfflS) tgL4t. 

T*(0, 0), £T* J (319, 199)-T'to £©trt>*ii, 

(Hu) PSET (X, Y, C) 

(S15) SET [C] X, Y 

cttfes^-roosuH*), i©**>G7©&4ir'8fe* ut, 
© 2 *js]uii;^4?l < 

*(X1, Yl)t(X2, Y2) © fiU 4 ul$lt4o^i: 14, 

(Hu) LINE(Xl, Yl) — (X2, Y2),PSET, C 
(S15) LINE[C]X1, Yl, X2, Y2 
t L 4 to 

® IB(*¥i:fo) 

Wft^M* ? (Xl, Yl) t (X2, Y2)f*4ft^ff^li, 

(Hu) LINE(XI, Yl) — (X2, Y2), PSET, C, £ 

(S15) BOX[C]Xl, Yl, X2, Y2 


-T'to :W, 

(Hu) LINE(XI, Yl) — (X2, Y2), PSET, C, BF 
(S15) B0X[C]X1, Yl, X2, Y2, fefrv 

i: 4 5 t (fe#^-)t'Eft^©rtS5*o 1 oJt L 4 to 

© H 

(Hu) CIRCLE(X, Y), R, C 
(S15) CIRCLE[C]X, Y, R 

cnii*(X, Y )**+'!:<,¥&**RKy P ©FH©4ffl §> #lT't„ 
U±t'*0iaP&* T »6o L:tCL4t($ t *4: 7 X 11 ! ). 
4 b, till lit 4 1B A SIC f! U ©fMf A i£ 4 #T f® L 4 XA.WX', Z 
©a‘4£4**G$#SL 4 Li), C ©fill 14 Hi tit" 4 -ttAo 

JjjJ COSiSIN 

: ©iflliSSl - ^, t < CSIN, COS(t 4 7, =nM 7) G 

4t'Ai:txt lif£&$ t 4 1 41* f , f)5T t c HfcMti-z L X\ 
&¥* S X'% U) i:4 4*-t> LiitXACDX'X'lX < A'Ji', 
it, 01 4at < ,n',(Bli'V;A* , G20K' x Kinti' 

4 to Z0)i *©j&B©&&lifc'?44T'L4 7 *‘o 
It^Sli Xb = X.+X = 100 + X 

Yt=Ya—Y=100—Y(Tlu) & A ? 7°x X) 

4tfe. 4 4VTI4X tY lit'7 ^4114*3)4 4 4©T*' 
Ini'. :A4 k $ cffi ? ©* ! 'SIN, COS 4 ©ft. 

i'4itt4&SAB t7Kt^©l«]©ftli2* s 60°'T'to w©fc&U, 

A B 47K¥£tInt:lfe'* 4 4# 4 Sca s COS(ftl&), h 146'fa 

t:Hg# 4 4* 4 r<* s SIN(ftl&) 4©ft. 
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ft*' t>, 

X=AB * COS (60°) =20 * COS (60°) 

Y = AB*SIN (60°) =20* SIN (60°) 

t£<D-ClTo l z htfz z-C% C,r., ifcitfiijrfc *) 

i it A. o 

''°y a y-ntti t a £©*§£•, r 5 ^'7>j 1 1 ' 5 fcfE ©<£{£*• 

dg^Tl' 4 to C niil80°* s nj^$^ =3.1415-CfflSI' 5^.g. 

KA.'C'Z 7 4©*‘l4&(>i¥L < lifol*) iit 
A* 5 '^(il80°=^7^'7y^©'C‘'to Kf 
(Hu) 7 = *PAI(1)/180 

(S15) ?i/7y = (ft&)*n /180 

i I.' 7 SLT"?^ L 4ttftli*4 b 4i\ t < tszi'o 

■■ HuBASIC-C'()^* ? ffix.i to lot< l'5i'o 

*£J3, ® 1 ©*B©SyfiiHuBASICt'li 

Xb =100 + 20 * COS (60 * PAI (1) /180) =110 
Yb = 100-20 * SIN (60 * PAI (1) /180) =82.679492 
t 4 S ©ft. 


it* 

Mi (X„ Y.) *'ib;&:frAlcSiLTQJf<7)3®£fMJ r K-y 1-3* 
ftfcMU3©JHi (Xb, Yb) (4 

Xb=X« + R*COS(Q*PAI(l)/180) 

Y b =Y a —R*SIN (Q*PAI(1)/180) 

4 < + t:4 9 i to < <1 <" n b itf; L f < 4'S I'o 
PR01. R£»< 

CIRCLE^ ft tcn£ffii'T<za i. 

fc 7 l'*> fc'Bl 7. ftltli 60° (:4ofl,' 4*'\ Z 

n* ! '0°*-ii360°4-t'<"5o tlitJ fc.£B©@M{f 7 44*'„ 

£ 7, RliiJO-rt. Ell 77A^ffiotA 

t> i-Hl l Li). 56lit'0i t * t i -9fc< |h]C 

I'll. SIN, COS 4ATfiS¥4A-T'to 

/ \ 

<PR01.>R£S< (HuBASIC) 

100 XA=100:YA=100:R=20 

110 SCREEN 0,0,0 

120 FOR Q=0 TO 360 

130 XB=XA+R*COS(Q*PAI<1)/180) 

140 YB=YA~R*SIN<Q*PAI<1)/180) 

150 PSET<XB,YB,1) 

160 NEXT Q 

V_ _ J 



i o b % 3 o i xt 

t S (i ? 

loiDit, CCDRO+'H'(X0, YO) 

ti' 6 t It li, 120°cr t CRO+'lMXO,YO)**tRArtt®iifc 3 
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CSK'fcWlk^atO+^ftttA-, A° + 120°, A° + 240 # Ui*l?i t 
3^OffiaSrtHfL-C, *t:if[j»ro?c^r^ < btt-r, 
:07°d/ 7^ #>PRO 2 rt o 


<PR02.> (HuBASIC) 


100 CLSO 

110 SCREEN 0,0,0 

120 DEF FNK(Z)=Z*PAI(1>/180 

130 X0=100:Y0=100:R=50 

140 N=3:A=90:C=1 

150 X=XO+R*COS<FNK<A)) 

160 Y=Y0-R*SIN<FNK<A)) 

170 FOR Z=1 TO N 

180 X1=X0+R*C0S<FNK(A+Z*360/N>) 

190 Yl=XO-R*SIN<FNK<A+Z*360/N>) 

200 LINE(X,Y)-(X1,Y1>,PSET,C 

210 X=X1:Y=Y1 
220 NEXT Z 

V ___ J 

JENfaM 

PRO3. ^»R<7) + 'C>tf(X0 f YO), ¥feR<nt. #(7)IENSB£*8 

< 7°P^^A^r#Xct 1 o 

^iiPR02rto AMrnm, 

wrtot, sxry >bn**trtiPiir< 

PR02*^rto 0 140ft^NcOfif 
J: 7 ✓ 

:0 J: 5 «:tfSr£fti::Afi-C*? < 

t 0 bX'^ , b(D)&W;'h'b^' t> ft { tl), ti'tl 

\££ftMlZi Sifito < tli|, 

^ b^ t 

IpI ElTt*\ -I <9^ b 

oTJENft®?r«< #i£«rPR03 t LT^icL Hn 0 
/ x 

<PR03. > IE N A ^( HuBASIC) 

100 CLS:SCREEN 0,0,0 
110 PRINT ”* U4*trzj*} •• 

120 INPUT ” X= H ;PX 

130 INPUT H Y=";PY 

140 INPUT "* rvl\i>74 t w ^: m ;N 

150 INPUT "* ‘xjj ru m< l= ,, ;R 

160 INPUT ”* COLOR=";C 

170 CLS 

180 A=2*PAI(1)/N 
190 FOR Z=1 TO N 
200 VX=COS(A* Z):VY=SIN(A*Z) 

210 FOR X=0 TO R 

220 PX=PX+VX:PY=PY-VY 

230 PSET < PX,PY,C) 

240 NEXT X 
250 NEXT Z 
260 GOTO 110 

V _ ) 

















* t f*200 

fftTfl*W L /j^^ WK:£L't 1 ?2“f o)iKc^* ? W4f^ L &*/>* ^ 
IENft*£5rJ8&£to ^t't ! LOGO0*-h 7 4 * 

* tisiirrt <t 0 

PR04. T.H°P^7 7 

^JSWttCfcC, 3tui'^7 7-f fz&t&ltiTtio 
n&mtz t> ^xris^ ito 

£ft* ? PR04r'to MZ-1500^ —f-■£>$$* Ilt-k'x tit, 

C'O t t JBC L /Jo 

<PR04.> X kfn ^^7(MZ-1500) ^ 

100 REM ***** 7f □ 9*77 ***** 

110 X0=160:Y0=100:R0=99:REM Vh/ 17 

120 R 1=60 a REM T1)S 17 / A794 

130 XX=50:REM Til/ I7Z 99 t7(<R1) 

140 C=2s REM COLOR 
150 N=10: REM 1)4x73:9 
160 CLS 3s INIT "CRTsB" 

170 CIRCLE C73X0,Y0,R0 

180 CIRCLE C73X0+R0-R1,Y0,R1-1 

190 LINEC73X0+R0-R1,Y0,X0+R0,Y0 

199 RT = 19 s LT=20 s REM CHR-CODE 

200 CCOLOR,,3:CURSOR 0,23 

210 PRINT M * 1)47x7/ 4*9C<-> It* 0K=CCR 3 M 

220 SETC03X0+R0-R1+XX,YO 

230 GET Z*sIF Z*= ,,H THEN 230 

240 IF Z*=CHR*<13> THEN 340 

250 IF Z*=CHR*(RT) THEN DX=lsG0T0 280 

260 IF Z*=CHRS<LT) THEN DX=-1:G0T0 280 

270 GOTO 230 

280 SET C 7 3 XO+RO-R1 + X X,YO 

290 XX=XX+DX 

300 IF XX<1 THEN XX=i 

310 IF XX>R1 THEN XX=R1 

320 GOTO 220 

330 REM === ROTATION START === 

340 CLS1 

350 CIRCLE C03X0+R0-R1,Y0,R1-1 

360 LINE C 0 3 XO+RO-R1,YO,XO+RO-1,YO 

370 QX = XO+RO—Rl+XX s QY=YO 

380 FOR Z=0 TO 360*N STEP 6 

390 A=Z*if/180 

400 PX=X0+<R0—R1)*COS(A) 

410 PX=PX+XX*COS(—A*R0/R1) 

420 PY=YO—(RO—R1)*SIN(A) 

430 PY=PY—XX*SIN(—A*R0/R1) 

440 LINECC 3PX,PY,QX,QY 
450 QX=PX s QY=PY 
460 NEXT Z 

470 REM CIRCLE C03X0,Y0,R0 

★HuBASICffl5£(—W) 

199 RT =28 : LT =29 

200 COLOR 3 : CURSOR 0, 23 

230 Z$ = INKEY$:iF Z$ = M “THEN 230 
^ 390 7T—PAI(l) _ j 

110tT* , ^150tTt'^Si4S«r»^L-C^ito (XO, YO) tm 
RO/r^HIo 4'$4#j£0¥&* ? Rirto XX U 
UtC^feS^rto hh 
L' «t> t <DX't\ & uttfc* iT*L/ir'< 

tSZ o 0 

199}f*^320lTi 0 t tti\ J. co^Tlf L tz 

Kto / CM?*'? 

Zbi't) ito 

? < i 11 , #*fcHJgt:i&o-CAV'tt 



RP^tHtUIIlIt t, *) CA o C0(R0/Rl)^ t 

4* h t, C CDffimtSSOft *» £460fr 

0 RSI rtf'-^ CO 0 flft s Sr ft If L -C rn '7 h L X v * * 1 0 


g P^7*«K 

I'ii.' /f >r-?t'A4/7 7Mi:^AL £ t„ 

t & U, f? yif-f&.lt.'K 
=»>4$i7 

li^'7 *44, 

4^ni'4c t* J * 0 £1-*'o k 5 0ft„ 

7 *«<+«»]» 

(i4M-7Ti'S:t)^0®II, OP0SSH. OQcOft 
J3*W, P»ISiiSC5#SAcm, iPS§5 A.COH’gBcmKA). 

1 . 

£-top£3i*£ Li?. oiiiH't i-c,p<*ffi(i4;)<*£-f„ 
OPOiteiltliH «KHI£YO-H l 4 0 £ 

1\ iilttBL't't. tS®, *P=(XO, YO-H)-Tto [5]«C 
*Q=(X 0 + 3 *W, YO) L4Ut. Cti^HuBASIC-rtS< t 
LINE(XO.YO) - (XO, YO-H), PSET, 7 (SDB&OP) 

LINE (XO, YO) - (XO + 3 * W, YO), PSET, 7 (tS&OQ) 

t 4 0 £ to 

2 . 

<k c persc^r ft £ IS & Jit* b t r ft *4 :0/7 7i0U 

fcOPtlsUri: L £To ;nLWir, A 1 = (XO + W, YO), A 2 
= (X0 + W, YO—h) t 4 0 £ -t**0HuBASIC-r it 
LINE(XO + W, YO) - (X0 +W, YO-h), PSET, 7 
t 4 0 £ to 

3 . )j|l £ A. CD -S' it 4 -fill ( 

:(U ! -# J po*'i.'4«-r'-to *Bl,B2t ()«E(®^(J:X0 + 2*W 

112 p 
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<PR05.> S?77(HuBASIC) 


tsi bb' 0 i t* s , i-tAo 

MSA. t ^S©WA,B/'t 6**0-Cl' 
*-fa*t,Jt©fiS?rfc 5 t 

(Hg|ig^#fi) : (M?A.©Jt;ft) = A : B 
= (psram©y'7 7T'©&$H) : (Jpi8I3A.©7*7 71'© 

Z) 

tiOil-CD-rA : B = H : Z-ft. 6**f>4‘i>©ttZA'ttl'1’ 
*\ Jtffl^rtt (l*PS©#)=(i1^©f*) tih1i)A*Z = B*Ht' 
1-©-r,$o/liZ = H* A/B LU *) it, lA* ? 7-CBASIC©£tt, 
LINE(X0 + 2 * W, YO) — (XO + 2 * W, YO—H * A/B), 

PSET, 7 

fc&O it. 

1 n-T'EI 2 ©&a*«5ti 1 L fcta„ 

4. #7*7 71:1-SCtt 

ai:tt#/5 7 #t****£Lii-©-ir, cn 

AS: < TttS: 0 i-a-A-o L*>L, :WiI¥ft, 
6 *‘ntt'£©A$#A'tt*Al *#Ut'iitf-t:LINE, BF££1£ 
ilfiH'Oftii't, 1 ©*#£-, Hg|lg©#S4-#i.'#-rgil1- 
S i 

LINE (XO + W,Y 0) - (XO + W + V.YO—H) .PSET.J^BF 
l* 1 ) it. Jn^2>/u©i§'g-t)|5]#{:V4 > ^2)Ii:ipAS7:'(i-!r 

5. HPg©l£ffl 

::ftt, IHSiiS©#fi;* s i!iPS§*) tffii'C i* s sb 
i'*)i LL1 ! , 3 A0 L T < S t, 

ay-ram i ttttnursc *> i-e-A. 5 cl it. 

DM=D(1) 

FOR X= 2 TO N 
IF DM<D(X) THEN DM=D(X) 

NEXT X 

NttASc, D(X)tt#i©#ST*'to i Ltftttt' tlsllti: 

Z = H*D(X)/DM 

t L-C7"7 7±©ft3.%-H^iTo 7*7 7^1 fcFOR~NEXT£ 
ffti'it. 

$ c, Jt®#7*7 7T'tt 2HIITI±©r"-7* ? -r-C & £ + © 
-r, &r"-7ttD (7"-jf©iI, r"-7©#4§-) ©15 &SWI 

©A-Tt, ^t:«AS?fl.ffl#7*7 7f^y7h4f7°Wi>hLi L 

<t 5o 

PRO 5. #7'77MV7h 

7-?©«*Ittl *>'2, x-7»tt**l2T-f. fcitlilB 
© &?& £ su ^ IB) E it t Jtg-f % 7' 7 7 A1S it S f „ 

;Attirrnl^7"7 7-rT* ? , irrft|&7'7 7 t#7*7 7©itt.'tt# 
«r fc X 5 ft «b 0 ttjgt left *>, & * ©|SS 4-o S: <" A* 11 **-t. 
in i tzimiffixU^y 7 ft®y 7 i £ PR061 L -CJSS&L t 
ito-r, 5tli t‘©#7*7 7 t ©ill'll <«i^L-C AT < 
i70 Oh! MZ 1986.1. 


100 REM ***** DATA-INPUT ******* 

110 INPUT "* f-J / LullH'A (1/2) :";Y 
120 INPUT "* t*-J ./ J15TA (1-12):";T 
130 DIM D(Y,T)s CLS 
140 FOR Z=1 TO Y 

150 CURSOR <Z-1)*20,0:PRINT M * ITEM No.^jZ 

160 FOR X=1 TO TsGOSUB 210:NEXT X 

170 CURSOR 0,22:INPUT "* MISS No. ( T=/=0) : " ; X 

180 IF X=0 THEN 200 

190 IF X> 12 THEN 160 

195 GOSUB 210sGOTO 170 

200 NEXT Z sGOTO 249 

210 CURSOR ( Z —1)*20> X = PRINT "* DATA" 5 X; 

220 INPUT "=";D< Z, X) 

230 RETURN 
249 REM 

400 REM ***** BAR-GRAPH ***** 

410 SCREEN 0,0*0:CLS 

420 W0=240s W=WO/Ts H=128 

430 X0=40sY0=160sDM=0sC=3 

440 LINE(X0,Y0)-(X0,Y0-H),PSET,1 

450 LINE(XO,Y0)-(XO+WO,YO),PSET,1 

460 FOR Z=1 TO Y 

470 FOR X=1 TO T 

480 IF D(Z,X)>DM THEN DM=D(Z,X) 

490 NEXT X,Z 

500 DN=INT(LOG(DM)/LOG(10)) 

501 DL=INT(DM/lO^DN)s DK=DL*lO^DN 

502 FOR X=0 TO DK STEP lO^DN 

503 DJ=YO—H* X/DM 

504 LINEC XO-5,DJ)-(XO,DJ),PSET,7 

505 NEXT X 

510 FOR Z=Y TO 1 STEP -1 
520 GOSUB 550 
530 NEXT Z 
540 GOTO 999 

550 FOR X=1 TO T:REM - SUB BAR - 

560 LINEC XO+C X-.5)*W+Z*3,YO)-CXO+X*W+Z*3,YO 
-DC Z,X)*H/DM),PSET,C, BF 
570 NEXT X s C=1 
580 RETURN 
999 REM END 


(>i)^<7)#ftl$!7'7 7 PRO6. tfl^'77 PRO7. (ZOl'T, 100 ft 
frb 249 ft* T'CJC<7)PR05. £^<7)3: Jfl'JT a 


V_ J 

R/77lHio *0**f»SJ+o 

1. R*»< 

(xo, yo) ut 

ciRCLEX-nq^ffi^ 1 -r (870^) o 

2 . h 

W?"y 7 ni /7 7 a §7 -^ ^Mt 7 °7 7ft 

* T , 

U^fto X'-tti'b, &T'-^0^tt«fFOR~NEXTXir^ 

u < xa 4* 0 i tf/io 

<lcO^3tttD*>R0^r/§2 * PAI (1) 7 *J7 Z> <D 

t\ &r-* izM *)£XC>tl6 5 
D^X) /D * 2 *PAI(0) 

t U oTto 

3. Ru«Hr3l< 







i L-CR0^-ll«*Mi&<i£(:fi|i) Sti lixtzftHUr, lic^^ 
SU'-O.'^ it, t *• 

c>, A&-CU90’=7r/2 7 ^'7 > fc & S 0-r, CCDffifcftli £' CD 

su•> ysTttcsni-c, * HiLiNE£-rt® £31 ^ it, 

c cDf-Sct: o (,' T li PR06 : imPl^y < 

//$ i' 0 

/ x 

<PR06. > y y (PR05.<7)100~249^fciiAP) 

600 REM ***** LINE-GRAPH ***** 

610 SCREEN 0,0,0:CLS 

620 W0=240:W=W0/T:H=128:C=1 

630 X0=40:Y0=160:DM=0 

640 LINE<X0,Y0)-(X0,YO-H),PSET,7 

650 LINE(XO,Y0)-<XO+WO,YO),PSET,7 

660 FOR Z=1 TO Y 

670 FOR X=1 TO T 

680 IF D(Z,X)>DM THEN DM=D<Z,X> 

690 NEXT X,Z 

700 DN=I NT( LOG( DM) /LOG( 10) ) 

702 DL=I NT ( DM/10'^DN) : DK=DL* 10' % DN 
704 FOR X=0 TO DK STEP lO^DN 
706 DJ=YO—H* X/DM 

708 LINE<X0-5,DJ)-<XO,DJ),PSET,7 

709 NEXT X 

710 FOR Z=1 TO YsGOSUB 730:NEXT Z 
720 GOTO 999 

730 FOR X=1 TO T:REM - SUB LINE 

740 PX=XO+< X-. 5)*W:PY=Y0-D(Z,X)*H/DM 

750 IF X=1 THEN QX=PX:QY=PY 

760 CIRCLE(PX,PY),1,C 

770 LINE(PX,PY)-<QX,QY),PSET,C 

780 QX=PX:QY=PY 

790 NEXT X:C=3 

799 RETURN 

999 REM END 

V_ ) 


r 


<PR07 .>P3^77( PR05. <7) 100 ~ 249*t ££ *0) 

800 REM ***** CIRCLE-GRAPH ***** 

810 SCREEN 0,0,0:CLS 4 
820 X0=150:Y0=100 
830 R=50:D=0 
840 FOR X=1 TO T 
850 D=D+D(1,X) 

860 NEXT X 

870 CIRCLE(XO,YO>,R,7 

880 FOR Z=0 TO T-l 

890 DO=DO+D( 1,Z):A=PAI( 1)*D0*2/.D 

900 X=XO+R*SIN(A):Y=YO-R*COS<A) 

910 LINE<XO,Y0>-<X,Y),PSET,7 
920 NEXT Z 
930 GOTO 999 
999 REM END 


V_ J 


: <&&<& 

::KW7 7, tW"7 7, Piryy&ffiUm'syb 

teffifrlXI? i L MktitlUZVt'ZO) r <'%A< /Lj < 

1“o r"— % * — j.— l L ti h y x % A )\/ 

*«-£k, -fro** < Ati Lt:r 

-*XTti)'C,, tmiXisZiZl' i Sii, 77^^U7-7° 

^7-"t QDcieHrO ito 

lZhX'*WU.fr\ fc/ik, zo) r <"4^ < /ij £*• 


tWfSSlTS tz PRO 5—7 k@i*> PRO7 0^*fri:0-rto *> i 
PRO 4 ^PR06 i X' ■fc-fc-T' L L T 


MERGE 

X^(Z-fe-7 L/--7°P ^7AF$ I'JfoT 
# c 7)^ 0 

MERGE 


(#&)-? —^ 0/7 a£SAVE “Filel”, AUtt 
— 7*1“ 6 0 fclZ-r — SS'Ztl&li i 07°o A£ d— K L X 
MERGE “Filer f 2007*0/7^^^^50 
C <7) 0 U i * B A SIC 0) I* ‘^ ^ (is® k « 

: k) 


0 k 7 2 0# k i* 7 i 0 C95& 

*)//< §/L0lWftli*ntl ii'4 Lfco 




: Cb^< A, 

ZC7)yp ^'7 AtC PR05. ~7. EMERGE LT < 

105 INPUT "> 77*01/1)7 a=72l)< Y/N) : " JANS* 

106 IF ANS*="Y" THEN GOSUB 1200:GOTO 250 
250 REM ***** MENU ***** 

260 CLS 4:CURSOR 5,0:PRINT "* GRAPH-STYLE 
MENU *" 

270 CURSOR 0,2:PRINT "1. BAR-GRAPH" 

280 CURSOR 0,4:PRINT "2. LINE-GRAPH" 

290 CURSOR 0,6:PRINT "3. CIRCLE-GRAPH" 

300 CURSOR 0,8: PRINT "4. BAR 8t LINE-GRAPH" 

310 CURSOR 0,12 

320 INPUT "* SELLECT No.="JANS 

330 IF (ANS<1)0R<ANS>4) THEN 310 

340 ON ANS GOTO 400,600,800,400 

390 GOTO 310 

509 IF ANS=4 THEN 950 

950 REM *** BAR & LINE ***** 

960 Z=l:GOSUB 550 
970 Z=2:GOSUB 730 
1000 REM ***** OPTION ***** 

1010 INPUT "> 77>TJb V?Z1H Y/N) JANS* 

1020 IF ANS*<>"Y" THEN 1120 
1030 INPUT "* FILE NAME = "JF* 

1040 OPEN "0",#1,F* 

1050 PRINT#1,Y 
1060 PRINT#1,T 
1070 FOR U*=l TO Y 

1080 FOR V=1 TO T 

1090 PRINT#1,D(U,V) 

1100 NEXT V,U 
1110 CLOSE#1 
1120 END 

1200 INPUT "* FILE NAME = " JF* 

1210 OPEN "I",#1,F* 

1220 INPUT#1,Y 
1230 INPUT#1,T 
1240 DIM D(Y,T) 

1250 FOR U=1 TO Y 

1260 FOR V=1 TO T 

1270 INPUT#1,D(U,V) 

1280 NEXT V,U 
1290 CLOSE#l:RETURN 

★ S-BASIC l500ffl^!M^(—SB) 

1040 WOPEN # I, 

1210 ROPEN # I, F$ 
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{> t & t $ai—x3>©o 

t *> * f u *ISHMt s r b y? u t |o 

Arli 5 aU'i' J: 7 4"7°n?" ?/,(;&• HL 

4o n> 4 AiifiW IT, i&m L T < 

X©''°*->li, REM XT'PAT 
-t : i : *>n'ci.'4a5'9-c'{^^n'Ci.'T, x 
t A‘t: 8o(;'9-* > nTi'iTo ''°X —>© 


A~N0XttLt 
SthtiTi'i-i-o £©Xt : *\ lie, £p|, 
»JS»J, ffl&W, MM, *4 li, 

AT. 0i5A', 0i5i:, ®, 4-, «t, <4 

^arsi^wpcwsL-ci'i t„ l$ = “a 

GB”4 0, (t,P) + r lij + (»JS5)), 4‘ 1*. 
(£, r MiijS^j4 £'©Xe4 JbltTt. 


xvrni ?> o t I'Ai'A#! 4ni tor, 

—LTAt < /*§ i' 0 £© 
fdi, 3M£<:0~9©, 

0)'?7*-*fr- 7|fC, Bfl'ft, 

Srftft* <fc 7 Ctftlir, J: 9 AlfcP#gt:i£ 
<44© t'ii 4 1 'tT L X 7 *‘o l 

TliU' tgi-Jt. 



1000 PRINT "************************ 

1010 PRINT"* Z TIW ver .1,1 * 

1020 PRINT"* by M.Kudoh * 

1030 PRINT"************************ 

1040 DIM TA*(4,255),GY*(11),J*(7),MX(4) 

1050 FOR 1=0 TO 7 :READ J*(I):NEXT 
1060 FOR 1=0 TO 4 
1070 J=0 

1080 READ T* 

1090 IF T*< >"*" THEN TA*(I,J)=T*:J=J + 1:GOTO 1080 
1100 MX(I)=J—1 
1110 NEXT 
1120 ’ 

1130 PRINT:PRINT" =====<< MENU >>=====" 

1140 PRINT: PRINT" 1. i, ?7tM' 

1150 PRINT" 2. tfL/74" 

1160 K=1:PRINT: INPUT" 771/“=? Za7Va7 i/r77~ ", K 

1170 ON K GOTO 1240,1210 
1180 GOTO 1130 
1190 ’ 

1200 ’ END 

1210 END 
1220 ’ 

1230 ’ V ?7tM 

1240 FOR 1=0 TO 11:GY*(I)="":NEXT 

1250 FOR LN=0 TO 11 

1260 !_*="" :P=INT(RND(1) *8)+1 

1270 ON P GOSUB 1440,1510,1580,1660,1720,1790,1840,1930 
1280 GOSUB 1990 
1290 NEXT LN 
1300 ' 

1310 PRINT 

1320 FOR 1=0 TO 11 

1330 PRINT RIGHT*(STR*(I+1),2);". ";GY*<I):NEXT 

1340 PRINT: INPUT" Printer Z V 2 , ') , )b'? VIZI) ? <Y or N)",K* 

1350 IF (K*< >" Y" ) * <K*< >"y" ) * <K*< >"1/" ) THEN GOTO 1130 
1360 N=0: INPUT" Ty*'aO/ ? tT 1/7" . . . Oniy CRET3 " , N 
1370 IF (N<0)+(N>12> THEN GOTO 1310 
1380 10=0:11=11:IF N<>0 THEN I0=N-1:I1=N-1 
1390 FOR 1=10 TO II 

1400 LPRINT GY*(I) ’ PRINT/P GY*(I) 

1410 NEXT:GOTO 1310 
1420 ’ 

1430 =* PAT 1 

1440 N=INT(RND(1)* 100) 

1450 HI=ABS(69*(N<=5)+68*(N>5)*(N<=20)+67* <N>20)*(N<=60)+66* <N>60>) 
1460 L*=L*+CHR*(HI)+"A" 

1470 IF INT(RND(1)*2)=0 THEN L*=L*+"M" 

1480 RETURN 
1490 ’ 

1500 ’ PAT 2 

1510 L*=L*+"A"+CHR*(INT(RND(1)*2)+70) 

1520 N=INT(RND(1)* 10) 

1530 HI=ABS(69*(N<=3)+68*(N>3)*(N<=6)+67*(N>6)) 

1540 L*=L*+CHR*(HI)+CHR*(INT(RND(1)*3)+65) 

1550 RETURN 
1560 ’ 

1570 ’ PAT 3 

1580 L*=L*+CHR*(65,71) 

1590 N=INT(RND(1)*100):IF N>=20 THEN 1610 
1600 L*=L*+"AH";RETURN 

1610 HI=ABS(68*(N>=20)*(N<=40)+67*(N>40)*(N<=70)+66*(N>70)) 

1620 L*=L*+CHR*(HI) 

1630 RETURN 
1640 ’ 

1650 ’ PAT 4 
1660 GOSUB 1580 

1670 IF RIGHT*(L*,1)="H" THEN L*=LEFT*(L*,LEN(L*)-1)+"K" 

1680 L*=L*+"A"+CHR*(INT(RND(1)*2)+73) 

1690 RETURN 
1700 ’ 

1710 ’ PAT 5 

1720 N=INT(RND(1)*10) 

1730 HI=ABS(68*(N<=2)+66*(N>2)*(N<=5)+67*(N>5)) 

1740 L*=L*+CHR*(HI) 

1750 GOSUB 1580 
1760 RETURN 
1770 ? 

1780 ' PAT 6 
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1790 L*=L*+"AJ" 

1000 GOSUB 1580 
1810 RETURN 
1820 7 

1830 7 PAT 7 

1840 IF INT(RNDU) *2)=0 THEN 1870 

1850 GOSUB 1580:IF MID*(L*,3,1)<>"B" THEN 1890 

1860 GOTO 1880 

1870 GOSUB 1510:IF MID*(L*,4,1)<>"B" THEN 1890 
1880 L*=LEFT*<L*,2)+"AL"+RIGHT*(L*,LEN(L*)-2):RETURN 
1890 L*="A"+CHR* (I NT (RND < 1) *2) +70)+"ALB" 

1900 RETURN 
1910 7 

1920 7 PAT 8 
1930 L*= S L*+"AK" 

1940 IF INT(RND(1)*2)=0 THEN GOSUB 1440:RETURN 
1950 GOSUB 1580 
1960 RETURN 
1970 7 
1980 


□ MV* 


I7t* 

1990 FOR 1 = 1 TO LEN (L*) 

2000 N=ASC(MID*(L*,1,1))-65 
2010 IF N=—65 THEN 2210 

2020 IF N>=5 THEN GY*(LN)=GY*(LN)+" "+J* (N-5):GOTO 2210 
2030 ON N+l GOTO 2050,2050,2080,2150,2050 
2040 7 V/9 
2050 GOSUB 2240 
2060 GOTO 2210 
2070 7 9439:/ 

2080 GOSUB 2240 
2090 IF I=LEN(L*) THEN 2210 
2100 H*=MID*(L*,1+1,1):K*= , M M 

2110 IF (H*="B")+(H*="C") THEN K*="9" 

2120 GY*(LN)=LEFT*(GY*(LN),LEN(GY*(LN))-1)+K* 

2130 GOTO 2210 
2140 7 9439b* 9-1/ 

2150 GOSUB 2240 
2160 IF I=LEN(L*> THEN 2210 
2170 H*=MID*(L*,1+1,1):K*="9*" 

2180 IF (H*="B")+(H*="C") THEN K*="Z" 

2190 IF H*="A" THEN K*="7 n 

2200 GY*(LN)=LEFT*(GY*(LN),LEN(GY*(LN))-2)+K* 

2210 NEXT I 
2220 RETURN 
2230 7 
2240 
2250 
2260 
2270 7 

2280 DATA 7)*,A, 9* ,7399',739Z,7,9,3 
2290 7 

10000 DATA TS,AT, V7,**/,3V*7, fcba, 7)3, 739* , 7 *, 7)7)“ r*, *9Jt, *'* 1/7)* , VaO*y 9 Uti/, 7t4r* 
10010 DATA */39i/*a, J9t,A934,9*,t-9-79, * 

10020 DATA T 9,979, h*/<9, 776, 7 *t4jD, tl*,, /*?* 36*, 7)7)“ 1*9, 7t9, 7)U9, h7* , t*«79, T7)“ M 

10030 DATA 777* , 7*“ 7*9, 9* *i/7*, 996U*, r97r4*, i/*r4*, * 

10040 DAT A 6TL/4,999i/4, TVi/J , 9*i/4, 7t“ i/4,7)71/4,97)4,1/Q4,77* 1/4,9/*94,4 M/4,9*9i/4 
10050 DATA AT* i/4,7-7774,7*4,994,34i/4,7494,77)*4,97)4, * 

10060 DATA 1/7* 7)9* , l/a-Jt/9* , *U49“ , 7* 1/799*9“ , 79U9* , *77)9* , 7*9* , Vf99“ , a' 7a9**9* 
10070 DATA 97)* 779“ ,=99r*9“ , 7i/*“ 9“ ,*9*77)9* ,7'*T)9* ,*•»** 99* ,* 

10080 DATA 1/M/h, 9797, 7*9 7)7, 3939b, b* *b“*,9999, J-»9U,^4:, 7-9 99, t9, 7 t* Z, b*ZA, 497) A 
10090 DATA t9t9b,7«*97b, * 


T=INT(RND(1)*(MX(N)+l)) 

GY*(LN)=GY*(LN)+" "+TA*(N,T) 
RETURN 


XI turbo, NEW BASIC<7)1§^<7)£;M,£ 

2180 H$ a HID$(LI» I+iiDsKIs'l'" 

2110 IF <H$* , B , )+(H$**C*) THEN K«* 7 <• 

2128 6VI(LN)=LEFT*(GY*(LN),LEN(GY*(LN))-2)+K* 

2178 H$=HID$(Lf, 1*1, DsKM'rtf' 

2180 IF (HIs'B'WHI^C*) THEN KM'tc* 

2190 IF H$ a 'A‘ THEN Kt®*** 

2280 DATA ifi, 0D£9lC» O, ^ 

10080 DATA b^E 

10018 DATA *-=?-}&, t 

10828 DATA 
10030 DATA 

10040 DATA TO*.I 

10050 DATA /*b0.^b0.«b0.SL0.j|*b0.«L0.W0. SO, S-SbO 
10060 DATA /4tfc0.#b0,JHb0.>lib0.tw£L0,*0»B80,;&b0»it0rt:0 
10070 DATA 8fl*o,;gO,l 

10880 DATA *#*>*£. S/a -/l/ftf. ¥fo t£ 

10098 DATA 

10100 DATA b K4K4. 9795.^ < •? 

10110 DATA 

XI, NEW BASIC<7)*S^<7)£|E«& 

1310 CLS4:COLOR 5 

1320 0PEN"0",#1,"GR:":FOR 1=0 TO 11 

1330 PRINT #1,RIGHT*<STR*(I+1),2);". ";GY*(I):NEXT:CLOSE 

1340 COLOR7:LOCATE0,24: INPUT" Printer Z i/n9Ya9 i/777) ? (Y or N)",K* 

1350 IF (K*= " Y " ) + (K*= " y " ) + (K*= " 1/ ") ELSE CLS4:G0T0 65535 

1360 N=0:CLS:LOCATE0,24:INPUT" 7-l/*“a97 ? t* 1/7* . . . Onl y CRETD ",N 

1370 IF (N<0)+(N>12) THEN CLS:GOTO 1340 

1390 0PEN"0",#1,"LP:":FOR 1=10 TO II 

1400 PRINT #1,GY*(I) 

1410 NEXT:CLOSE:CLS:GOTO 1340 
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10 REM*******t*t*******t**t*********** 
20 REH* 

30 REM* PROGRAM 1 
40 REMS 

30 REMS BCR TEST 
60 REM* 

70 REM***************ttt*****t*****t** 

BO INIT"RSli*00,*8C M 
90 ROPENttl f "RSI*RS232C” 

100 INPUT41,M*:PRINT M* 

110 CLOSE 
120 GOTO 90 




10 REM********************************* 

20 REM* * 

30 REM* * 

40 REM* PROGRAM2 t 

50 REM* * 

60 REM* BAR CODE APLICATION t 

70 REM* * 

80 REM* * 

90 REM********************************* 

100 DIM M*(100),DA*<30),DN*(10),DK*<20) 

110 ON ERROR GOTO "ERROR" 

120 RESTORE 1680:F0R 1=0 TO 9sREAD DN*(I):NEXT I 
130 RESTORE 1690:FOR 1=1 TO 26:READ DA*<I):NEXT I 
140 RESTORE 1720:FOR 1=0 TO 15:READ DK*<I):NEXT I 


150 RESTORE 1730:READ DK*(20) 

160 LABEL “MAIN":PRINT »H" 

170 CURSOR 10, 5: PRINT "MUSIC PLAY-1" 

180 CURSOR 10,7: PRINT "MUSIC SAVE-2" 

190 CURSOR 10,9:PRINT "BAR CODE PRINT-3" 

200 CURSOR 10,11:PRINT "BAR CODE READ -4" 


210 CURSOR 10, 13: INPUT •• PUSH KEY (+CR) " ;A* 

220 IF A*—"1" THEN "MPLAY" 

230 IF A*="2" THEN "MSAVE" 

240 IF A*—"3" THEN "BCPRINT" 

250 IF A*»"4" THEN "BCREAD" ELSE 210 
260 REM 

270 REM-MUSIC PLAYING- 

280 REM 

290 LABEL "MPLAY" 

300 GOSUB "MENU" 

310 IF DL<«1 THEN "MAIN" 

320 FOR ID-1 TO DL-l:MUSIC M*<ID):NEXT ID 

330 PRINT "H":CURSOR 10,11:PRINT "MUSIC END":WAIT 1000:GOTO "MAIN" 

340 REM 

350 REM-MUSIC DATA SAVE TO QD- 

360 REM 

370 LABEL "MSAVE" 

380 GOSUB "MENU" 

390 IF DL=0 THEN "MAIN" 

400 PRINT "B" * CURSOR 10,7:INPUT "SAVE DATA FILE NAME- "JF* 

410 WOPEN #1,"QD:"+F* 

420 FOR ID-1 TO DL:PRINT #1,M*(ID):NEXT ID 
430 CLOSE 

440 PRINT "H"*CURSOR 10,11:PRINT "MUSIC DATA SAVE COMPLETED":WAIT 1000:GOTO "MAI 
N" 

450 REM 

460 REM-BAR CODE PRINTING- 

470 REM 

480 LABEL "BCPRINT" 

490 GOSUB "MENU" 

500 IF DL—O THEN "MAIN" 

510 FOR ID-1 TO DL 

520 REM-CONVERT tt TO 7. - 

530 ..ML-LEN(M*(ID)) 

540 FOR JD=1 TO ML 

550 MK*=MID»<M*<ID),JD,1) 

560 IF MK*-"#" THEN MK*="7." 

570 MO*-MO*+MK* 

580 NEXT JD 

590 MM*»MO*:GOSUB "BARPRNT" 

600 NEXT ID 

610 PRINT "8"* CURSOR 10,ll:PRINT "BAR CODE PRINT COMPLETED":GOTO "MAIN" 

620 REM 

630 REM-BAR CODE READ- 

640 REM 

650 LABEL "BCREAD" 

660 PRINT "8":CURSOR 10,ll:PRINT "RECEIVING BAR CODE" 

670 INIT"RSl:t00,«8C":REM-RS-232C INITIALIZE- 

680 ROPEN#1,"RS1:RS232C" 

690 FOR ID-1 TO 1O0 

700 INPUT#1,M>(ID):MO*—"":ML-LEN<M*<ID)) 

710 FOR JD—1 TO ML 

720 MK*-MID*(M*(ID),JD,1) 

730 IF MK*»"X" THEN MK*="#" 

740 M04-M04+MK* 

750 NEXT JD 
760 M*<ID)=MO* 

770 CURSOR 10,13:Ft)R IS-1 TO 39:PRINT CHR*(*20)J:NEXT IS:CURSOR 10,13:PRINT M*(I 
D) 

780 IF M*<ID)—"END" THEN 800 
790 NEXT ID 

800 DL=ID:CLOSE:GOTO "MAIN" 

810 REM 

820 LABEL "MENU" 

830 PRINT "8" 

840 CURSOR 10,5:PRINT "DATA ALREADY EXIST—1" 

850 CURSOR 10,7:PRINT "DATA LOAD FROM QD-2" 

860 CURSOR 10,9:PRINT "DATA MANUAL INPUT-3" 

870 CURSOR 10,11:INPUT " PUSH KEY <+CR) "JA* 

880 IF A*—"1" THEN RETURN 

890 IF A*»"2" THEN 910 

900 IF A*-"3" THEN 930 ELES 800 

910 PRINT "8":CURSOR 10,7:INPUT "LOAD DATA FILE NAME- ";F* 

920 GOSUB "FREAD":RETURN 
930 ID=1:PRINT "8" 

940 PRINT ID?" OLD DATA-";M*<ID) 

950 INPUT " NEW DATA-"JM*(ID) 

960 IF M*(ID)—"END" THEN 980 
970 ID-ID+1:GOTO 940 
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980 DL=IDJRETURN 
990 LABEL "FREAD" 

1000 RQPEN Ml,"QD*"+F* 

1010 FOR ID=1 TO 100 
1020 INPUT# 1,M*(ID) 

1030 IF M*(ID)="END" THEN 1050 
1040 NEXT ID 
1050 CLOSE:DL=IDsRETURN 
1060 REN 

1070 REM****«**t*********************** 

1080 REM* * 

1090 REM* BAR CODE PRINT BY MZ-1P17 * 

1100 REM* MM*—DATA * 

1110 REM* * 

1120 REM******************************* 

1130 LABEL "BARPRNT" 

1140 REM 

1150 INIT"LPT:S5, *0D"s REM-PRINTER INITIALIZE- 

1160 PRINT /P CHR*<*A>:PRINT/P:PRINT/PsPRINT/P CHR*<* 1B) J "7.6" ;CHR*< 14> ; 

1170 REM 

1180 FOR IP=1 TO 3 
1190 REM 

1200 REM-START CHARACTER (*) PRINT- 

1210 REM 

1220 BA*=DK*(20)s GOSUB "BPRINT" 

1230 REM 

1240 REM-DATA CHARACTER PRINT- 

1250 REM 

1260 ML=LEN(MM*):REM-ML=DATA LENGTH- 

1270 FOR 11=1 TO ML 

1280 ST*=MID*<MM*,II,1):S1=ASC<ST*):BA*=DA*<24) 

1290 IF Sl>=*20 AND S1<=*2F THEN BA*=DK*(Sl-*20) 

1300 IF Sl>=*30 AND Sl<=*39 THEN BA*=DN*<Sl-*30) 

1310 IF Sl>=*41 AND S1<=*5A THEN BA*=DA*(SI-*40) 

1320 GOSUB "BPRINT" 

1340 NEXT II 
1350 REM 

1360 REM-STOP CHARACTER <*) PRINT- 

1370 REM 

1380 BA*=DK*<20):GOSUB "BPRINT" 

1390 PRINT/P 

1400 NEXT IP 

1410 PRINT/P CHR*(*A)J 

1420 RETURN 

1430 REM 

1440 REM-PRINT SUBROUTINE- 

1450 REM 

1460 LABEL "BPRINT" 

1470 PRINT/P CHR*<*1B> ; "7.1" ;CHR* (0,36) J 
1480 FOR 1=1 TO 9 
1490 B1*=MID*(BA*,I, 1) 

1500 IF B1*="0" THEN PRINT/P " if if if if if if if if if " *, 

1510 IF Bl*=" 1" THEN PRINT/P "Iflflflfiflflflflflflflflf1f1f1f1f1f" » 

1520 IF Bl*="2" THEN PRINT/P CHR*(0,0,0,0,0,0,0,0,0)? 

1530 IF Bl*="3" THEN PRINT/P CHR*(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,O); 

1540 NEXT I 
1550 REM 

1560 REM-CHARACTER SPACE PRINT- 

1570 REM 

1580 PRINT/P CHR*(*1B) i "7.1" J CHR* (O, 6) ; CHR* < O, O, O, O, 0, O, 0, O, 0, O, 0, O, O, O, O, O, 0, O) » 
1590 RETURN 
1600 END 
1610 REM 
1620 REM 
1630 REM 
1640 REM 
1650 REM 
1660 REM 
1670 REM 

1680 DATA "020312120","120302021","021302021","121302020","020312021","120312020 
","021312020","020302121","120302120","021302120" 

1690 DATA "120203021","021203021","121203020","020213021","120213020","021213020 
","020203121","120203120","021203120","020213120" 

1700 DATA "120202031","021202031","121202030","020212031","120212030","021212030 
","020202131","120202130","021202130","020212130" 

1710 DATA "130202021","031202021","131202020","030212021","130212020","031212020 


CODE-39 BAR CODE DATA 
O—NARROW BAR 

1— WIDE BAR 

2— NARROW SPACE 

3— WIDE SPACE 


1720 DATA "021202120","DM","DM","DM","030303020","020303030","DM","DM","DM","DM" 
,"030212120","030203030","DM","030202121","130202120","030302030" 

1730 DATA "030212120" 

1740 END 

1750 LABEL "ERROR" 

1760 PRINT "B":CURSOR 10,5 

1770 IF ERL=320 THEN PRINT "ERROR !!!-ILLEGAL MUSIC DATA" 

1780 IF ERL>380 AND ERL<440 THEN PRINT "ERROR !!!-MUSIC DATA SAVE" 

1790 WAIT 1000 
1800 RESUME 160 
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10 DATA "T7V15M8S0" 

20 DATA "G7E5G5+C3+C5+C3G7" 

30 DATA "A5B3+C3+D5+C3A3GBR5" 

40 DATA "G7A5B5+C6+D3+E7" 

50 DATA "+D5+C5B5A3G3+C8R5" 

60 DATA "+D6+D3+D5G5+C5+E5+G7" 

70 DATA ,, +E5+G5+F3+E3+D3+C3+DBR5” 
80 DATA "+G6+G3+E5+C3B3A5B5+C5+D5" 
90 DATA " +E8-»-D5+C8R5" 

100 DATA "G7+C7+C5+E8" 

110 DATA " +G7 +G7-H33+G7R6 " 

120 DATA "+E7+D5+D5+C8R5" 

130 DATA "END" 
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7 (-h®) cDffiOT^flS-jRtfSh 
D2+D4+D4 + D6+D8+D 10+012=9+1 +3+5+7 + 9=34 

2 : 4LT I : X'^tb btlfcltf 3fe£t5t: 34X31022: 4' l), ztlZDE 

£ti$ it (EVENDATA) 

3 : *i: I #075+7 77 7 (D 1) i. •), (TS) 

cotlOT»4-*»4tt 

D1 + D3 + D5 + D7 + D9 + DI 1 = 4 + 0 + 2+4 + 6+8 = 24 DO ( ODD) DATA 
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111234567'11890 1 35 


234567 



890159 


2 ) CODE 39(3059) 



4 ) JAN)®*® 


iiniiui 111111111 


11 2 3 4II5 7 0 0 



MZ-1500/'"—3— K 0 — 7’fBffltS 181 


















































































































































f# 


MZ-1500 


TheSPSa 

Sato Nobuo 

& m mk 

MZ-\SWX-U&Ws.£<nW& i k ft$Lt< 7?xf-f 9h'T-£ £ LA. -<D“The 
95,S*r liPCG£?iJfflLTX'S<ATx-7£A*i@x.*U£££3'£4'ffl&Cttx£T„ 7° 
U>h77 Mifc%*>A, HS*? □-^H’79 hfl^fcWt£41I*lJ4'7-.!UT'To 


C. © 7 °o ^7 A I*. if fc* < A 

tbO)3.r4*-C\ PCGCioTJBilASH 

s. * a®±f is a £- *■ 

fci'5 l©ft„ A4$ Alir^w—I- 
ti'? t>pizftC-Cl i. 5 *‘„ i'Z>i'A 
4*&3>©pppegfti2&if* f < MJta-nA 

%.&<D± i 4 t ©f, 7B-ft- h %•* 

<a*© to*, m®%m<Dmr-t%t>iniz 

t. 0, Mv 

-?-:X©Ao A i>©ifll*©*>©a ? # D 
it. i ?t4 «:&«©**©(>©liBBS-ft 
L-cfdfflLfci' ti'5 ibttrt. mi&iaf 
i> tstficpa if i^'-yf'-^ t 

LTffl*LT*>-t.'Ali?an'(.'A'Z>? t <■' 
?©* { c.<7)7°n^"7ACD^^tto ::f 
liPCG© 7 *> hr*-* t L-rielSSIlffl© 
''°— 7 ttA {> © JIMS Lit* 1 , 

MZ-1500i:|5H8 5 nx 1'4 PCGif'M * £ 

^i^fflitcfijffltsc fc* } f §> 5f L J 
5. xf-l ^©HhS t l X !£, @*©5 4 
T-^t'y^X, SB l rft. ©(**•, atf-tt 
^£#©^4 77 (- 


x^n-^L, 
t«:t * ? «rn&f t. 

Wfsm 

Z <D7°a?*7 -M£ 4 OCTJglJ'a-*' Git t) 4£ 
oti'it, 

• 7't > ^?3 (y x h i) 

C. C C'li&lZ-? y- yj§;u — 3-y fctfifrjX 
At'i’it. -fc—7*l£, 

SAVE Vt> /f3 V2.1 A” 

t IT < A'm. 

• MAIN.BTX (y x h 2) 

itf t $JJ*xA7 4 >>v — f->f t„ 
SAVE “MAIN.BTX” 
i Lit. 

• FONT.OBJ Cm3) 
PCG©^#4-t-S7°n^'7 Aft. MZ- 

15OO(:#*0PCGJxf”4^tf1:o Ax"-* 
$? G-RAM i:$5&t 5 J: ? i: 4 oti> it. 
LIMIT SAFFF : BYE 

M a -7 y Kt y x h 2 4- A^j l, 

• SB000 CF51 0000 “QD : FONT. OBJ” 
t-t-7'LT < A*§i'o 

• SUB. OBJ (yxM) 

cmita i c*a 

t/^-f >-’'"5' * 
ft. :(U BASIC 
©*-*fA* L, 

* S C600 C79A 00 
00 “QD : SUB. OBJ” 
f-t—7*1 i t. 

i-Ji'i, RUN 
“7’t V '<'=» V2.1 
A” ft. 


0 1 SUB. OBJ<7)F*9$ 


7 V Is*. 


flfc^ 

$C 600 

SETCHA 

(X , Y ) (Z * f 7 ? ? No. T**7 «y y (Z# < 

SC 603 

READCHA 

(X, Y )(7)<ii(7) +t7^ No. 

$C 606 

LOADMAP 

V'^f-n OD rt'b&iL' 

SC 609 

SAVEMAP 

77^f-n OD (Z#< 

SC 60C 

MAPDESP 

7 7 7^- 

SC 60F 

KEIIN 

*r—\~h 

SC 612 

MAPPRINT 


SC 615 

MIHON 

A-7 5r«< 

SC 618 

ALLCLS 

7 7^t^Tif 




it [CTRLl A-- iiRRA-—f 74 

atf, EJ^-f^a^BB^Lit. 

I-1 “QD” QDcDr'mth'm 



^7KL, -t—7 ***b—K*’ tW 

i't < Scpf [FlL lF2]4r—f ^ 


xt<A*?i.'. -7 y7°&3? AJlt S L -t- 


7"i Alin-Kf § it. 

“fSL^A” t—y^A~f, 
•<8 L A i'iSH©£±c i) — v» 
^Dj*’ L, H4r-SrtfL, <fcc 
£Tt:*-y^£ mtmlS^mfflt 
t, -iHLT t < SOT, Y*> 



Nlflit < A*Si'. 



3 f- “jgL=l"A” tlUUi 

}i:, atf-LAI5H«r#SL. 
iAc #®jf&©£±(- t - y ^ £ 


DjAT.ICRlA—frfflt t attf-**f |t it. 


“'O’ ZCD'Oligffl HtC 



Am^-S^-f^x i t. 

1) 7 

'— 7 £ Hi It a <.' tftvfi tx t — y ^ 5r Dj* ^* 
L, iAc ICTRLI A-— k ffL4* : U-y^ 
A--T7'°- > y?fIiU : x^-x4’fflt t*§ 
iiAi t. 

2) 74> 

<fci:aw>*4 7’?r|itJ<.’Ta it. 

®cr < 

-V* ? -3 -Cl' 4& =+-” 


182 Oh! MZ 1986.1. 






















0 2 0 3 
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/<—"S 


Jyil —i> 


T't □> 
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MAP 


"7 7/ 

'f 7 

7 hftJU t 


s cffii' i T. 

a yj v?” 
7° y v h 7 ? 
hft L it. 


LLt*' ; &7 -f => 7<7)fiJj 
s iiffic^-ri- jsHiFn 
+ * — r'-7 - 77 ° 


CO x 7 n 6 c 

ft 0 i t. 


E3+—f^vON, [F21A—TOOFF. 
^7 ft ON t: L T i:—'S A'fr$}i>'’t t !&ft 
3l£it. 

3) m 

ftWt &*ft***ito*ft|«i’T& it. 
“ili'A” tp]*it:?5®*l>$ftA;/jL 
T, ^(DSSIfta^T'AJj LT < A*? (.'„ 

ES*-ft#t tiHD it. 

it. tt U$U i t JSHIFTI 

UAB 
1 - 1 

ISH* ft A Gt — v t'ML, X'*—x 
•CtBLT < A'Si'o fFT1f“Q’ , fF2l-r'“)»" 
* s *ttit. Eg*—cmy it. 


ft te U^, Y or NTm 5 

t C ^T lBREAKl A- —ftfft t ^ffift^ff 

Lit. 

£•7 4 = VTT§;^£ n&, 7 -7-t — sA: 

fsio 7 {> G ft THiJtS 

Pit. 

^/D/TAifai:sell) LT lSHIFTI 
+ IBREAKl -f 7° p 7*7 a ft ik sb T. PCGx- 
+"4 7fti&®j£tit (T"-^co^H!jt;(i 
t^T(Cg*-fti?tC t) PCGNO. 1 ~ 
1441 769-1000 ftft tC, ffcCDPCGft# 
Sft*777*t:^ftT'< A'Si'. AA'L 


■ittij# U 7 - 3 -K 1 ) 1 fer>7 

7^^ftft-oT < AJp. 

S 5 t: J; oTPCG NO* f t>* f 7 c7)-ri±^* ? 

o*rt. 

* -V 7 7 7 ft ft 0 **h o A , QD i: -t - 
7*L T*“G, IF 10 I t—'C'^t" 4 
i t (PCG-X-ft i-Tl 

y r 4 77° y 7—S' 3 > • -?—3.7 ^ ft i 

< ijcti“ it). 

NEW |Cg 
LIMIT SAFFF |Cg 
ft*tf L T, QD ft An, 

LOAD “FONT. OBJ" |Cg 
5fc(i f 0) QD ft An, 

LOAD “FONT 1” [Cg 
BYE leg 
t LT*-7i:f£0, 

* X D000 EF3F B012 |CR] 

* S B000 CF51 0000“QD : FONT. 

OBJ” EE 

t AJjL, QDC-t-7'LT < A'$i\, :® 
7n/7Aft, fc t <7)7° O 7*7 A i jftft T 

^nuroK-rt. *t«, ^nft-nxAi 
TAT < A*3i'. 

3*>, ccogKSfST', ^-KUH<ft* 

7. 


MX M 7t7 V2.IA 


10 ONERRORGOTO “ERROR" 

20 LIMIT MAX: IF 24000>=SIZE THEN PRI NT"H1|RUN"+CHR$ (*22) + "7“tl/ A m 3 V2.1A":PRINT" 
CR$- =) XVt' 7^" 1 l'fH ,, :NEWON2 

30 PAL,7 :INIT"CRT:I":CLS3:CURS0R7, 6 :PRINT"ClRCUIT EDITOR":CURS0R14,8:PRINT"THE" 
40 FPRINTC18,83,929,930,0,931,932,0,933,934,:FPRINTC18,9 3,945,946,O,947,948,O,94 
9,950,:FPRINTC20,113,951:FOR I=952T0960:FPRINTI:NEXT:CURS0R21,10:PRINT"V2.1A" 

50 PRINTTAB(10) 5 "IHWAIT A MOMENT!" 

60 LIMIT$AFFF:LOAD"FONT.OBJ":USR< $BOOO):LI MIT $C5FF:LOAD"SUB.OBJ" 

70 DIM CB(4):DEFAULT"QD: 

80 X = 1:Y=1:CC=$5A:CB(O)=0:CB(1)=8:CB(2)=$48:CB < 3)=$ 88 :CB(4)=$C 8 
90 FOR I=$C7C5 TO$CFFF:POKE 1,0:NEXT 

100 PAL,3,0:FOR I=0T03:F0R 0=0T015:P=(I+20)*40+0+24:POKE $C7C5+P,I*16+0+160:POKE 
$CB85+P,CB < 4):NEXTO,I 

110 DEF KEY<1) = "B":DEF KEY<2) = "":USR<$C618) 

120 CHAIN "MAIN.BTX" 

130 LABEL"ERROR" 

140 IF ERL=60 OR ERL=120PRI NT"7°D9 '-76 / QD 9 *Ut9L ! " : WAI T2000 
150 PRINT"ESBSBSBBBHIT ANY KEY" 

160 GET K$:IF K$="" THEN 160 
170 RESUME 
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•JXh2 MAIN.BTX 


10 ON ERROR GOTO "ERROR" 

20 CLS3:P0KE*CFF4,CB < 0),1,1:USR(*0600) 

30 OX = X:OY=YsGOSUB"XYI" 

40 IF I*="g" GOSUB"ALLCLS":CLS 
50 IF PEEK (*E001 >0191 THEN 80 ELSE X=OX:Y=OY 
60 IF I*="E" AND FC<6 THEN FC=FC+1 
70 IF I *="E" AND FOO THEN FC=FC-1 

80 IF I*="B" THEN CURS0R26,O:PRINTMID*("QD ERASER MOVE KEY PEN MAP 

PRINTER",FC*7+1,7):BEEP:ON FC+1 GOSUB "QD","ELES","MOVE","KEY","WRITE","MAP"," 
PRINTER":PAL,3,O,3:CLSs BEEP:G0SUB220 
90 FOR I=0T013:IF FC=INT<I/2)THEN CR=7ELSE CR=0 
100 CCOLOR 24+1,23,,CR:CCOLOR 24+1,24,,CR:NEXT:G0T030 
110 LABEL "XYI" 

120 CURSORO,0:PRINT"POINT "USING"X= ###";X;:PRINTUSING" Y= ##";Y 
130 IF PEEK<*E001)=127 THEN RETURN 
140 USR < *C60F):I*=CHR*(PEEK < *CFF4)) 

150 IF PEEK(*CFF4)=0 THEN 130 ELSE POKE *CFFF+WX+WY*40,0 • 

160 IF PEEK<*E001)=191 THEN 310 ELSE CX=12:CY=12 

170 IF PEEK < *E001)=254 THEN CS=5 ELSE CS=1 

180 IF I*="y" THEN Y=Y—CS 

190 IF I*="l!" THEN Y=Y+CS 

200 IF I*="E" THEN X=X-CS 

210 IF I*="E" THEN X=X+CS 

220 IF X>100THEN X = 100 

230 IF X<1 THEN X=1 

240 IF Y>60 THEN Y=60 

250 IF Y<1 THEN Y=60 

260 SX=X-11:SY=Y—11 

270 IF X<12 THEN CX=X :SX=1 

280 IF X>88 THEN CX=X-76:SX=77 

290 IF Y<12 THEN CY=Y :SY=1 

300 IF Y>48 THEN CY=Y-36:SY=37 

310 POKE *CFFF+CX+CY*40,*EF:WX=CX:WY=CY 

320 POKE *CFF5,SX,SY 

330 USR(*0600) 

340 RETURN 
350 LABEL "2XYI" 

360 CURS0R24,17:PRINT"START SET (Z) 

370 GOSUB"XYI":IF I*<>"Z" THEN 370 ELSE X1=X:Y1=Y:POKE*CFFO,X,Y:USR(*0603):H1=PE 
EK(*CFF2):H2=PEEK< *CFF3):POKE *CFF2,224,*08:USR < *C600):BEEP 
380 CURS0R24,17:PRINT"END SET (X) 

390 GOSUB"XYI":IF I*<>"X"THEN 390 ELSE IF X<X1 AND Y<Y1 THEN 390 

400 X2=X:Y2=Y:POKE*CFFO,X,Y:USR(*0603):H3=PEEK(*CFF2):H4=PEEK(*CFF3):POKE *CFF2, 
225,*08:USR < *0600):BEEP 

410 CURS0R24,17:PRINTC7,13"0K? Y)ES OR N)0":BEEP 

420 IF PEEK<*E001)=127 THEN I*="Y":G0T0440 ELSE GOSUB"XYI":IF PEEK<*CFF4)=0 THEN 
420 

430 IF I*<>"N" AND I*<>"Y" THEN 420 

440 POKE *CFFO,X1,Y1,H1,H2:USR < *0600):POKE *CFFO,X2,Y2,H3,H4:USR(*C600) 

450 IF I *=*'Y" THEN: RETURN 

460 G0T0360 

470 LABEL "BOXW" 

480 G0SUB"2XYI":IF PEEK(*E001)=127 THEN RETURN ELSE CLS:GOSUB"LTYPE":IF PEEK(*EO 
01)=127 THEN RETURN 

490 Y2=Y2—Yl:X2=X2-X1:FOR I=1T0X2:P0KE *CFFO,X1+1,Yl,Cl,8:USR<*0600):POKE *CFFO, 

X1+1,Y1+Y2,C2,8:USR(*0600):NEX T 

500 FOR I=1T0Y2:POKE *CFFO,X1,Yl+I,03,8:USR<*0600):POKE *CFFO,X1+X2,Yl+I,04,8:US 
R(*0600):NEXT 

510 POKE*CFFO,XI,Yl,05,8:USR(*0600):POKE*CFFO,X1,Y1+Y2,06,8:USR(*0600):P0KE*CFF0 
,X1 + X2,Y1,07,8:USR(*0600):POKE*CFFO,X1 + X 2,Y1+Y2,08,8:USR(*0600):GOTO"WRITE" 

520 LABEL "ELES" 

530 G0SUB"2XYI":IF PEEK(*E001)=127 THEN RETURN 

540 F0RXI=X1T0X2:F0RYI=Y1T0Y2:POKE *CFFO,XI,YI,O,O:USR<*0600) 

550 CURSORO,O:PRINT"ERASING "USING"X= ###";XI;:PRINTUSING" Y= ##";YI 

560 NEXT YI,XI 

570 RETURN 

580 LABEL "MOVE" 

590 G0SUB"2XYI":IF PEEK<*E001)=127 THEN RETURN ELSE CURS0R26,17:PRINT"SET PONIT< 
OR)" 

600 GOSUB"XYI ": IFI*OCHR*< 13>THEN 600 
610 X3=X:Y3=Y 

620 X3=X3—X1:Y3=Y3-Y1:X2=X2:Y2=Y2 
630 IF0<X3THENXX=X1:X1=X2:X2=XX 
640 IF0<Y3THENYY=Yl:Y1=Y2:Y2=YY 

650 IFX1>X2THENF0R XI=X1T0X2STEP-1ELSEF0RXI=X1T0X2 
660 IFY1>Y2THENF0R YI=Y1T0Y2STEP-1ELSEF0RYI=Y1T0Y2 
670 IF YI<1 OR YI>60 OR XI<1 OR XI>100THEN 700 

680 POKE*CFFO,XI,YI:USR(*0603):POKE *CFFO,XI+X3,YI+Y3:USR<*0600) 

690 CURSORO,0:PRINT"MOVEING "USING"X= ###"SXI;:PRINTUSING" Y= ##"?YI 

700 NEXTYI,XI 

710 RETURN 

720 LABEL "LTYPE" 

730 CURS0R24,17:PRINT"CORNER TYPE":PRINTTABt24);"1)n 2)m 3)^":PRINTTAB<26)J" 
lj lj w» 

740 GET I* 

750 IF I*="1"THENC1=*18:C2=*18:C3=*19:C4=*19:C5=*54:C6=*64:C7=*55:C8=*65:G0T0800 
760 IF I*="2"THENC1=*1C:C2=*1D:C3=*1E:C4=*IF:C5=*58:C6=*68:C7=*59:C8=*69:G0T0800 
770 IF I*="3"THENC1=*1B:C2=*1B:C3=*19:C4=*19:C5=*50:C6=*60:C7=*51:C8=*61:RETURN 
780 IF PEEK(*E001)=127 THEN RETURN 
790 G0T0740 

BOO CURS0R24,17:PRINT"1) POINT LINE ";TAB(24);"2) NOMAL LINE ";TAB<24);" LI 
NE TYPE 
810 GET I* 

820 IF VAL(I *)<4 AND VAL(I*)>0 THEN GOSUB"COLOR" 

830 IF I*="1"THEN 01=01+16:02=02+16:03=03+16:04=04+16:05=05-2:06=06-2:07=07-2:08 
=08-2:RETURN 

840 IF•I*="2" OR PEEK<*E001)=127 THEN RETURN 
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850 G0T0810 

860 LABEL "LINE":LC=1 

870 CURS0R24,17:PRINT"1)N0MAL LINE ";TAB(24)?"2)JUMP CROSS ";TAB<24);"3)C 

ONTACT CROSS " ;TAB < 24 > *, "4 > BUNCH LINE" 

880 GET 1$ 

890 IF VAL<I*)<5 AND VAL<I*)>0 THEN GOSUB"COLOR" 

900 IF I*="l" THEN CC=*70:CE=0sCD=0 

910 IF I*="2" THEN CC=*11:CE=0:CD=0 

920 IF I*="3" THEN CC=*10:CE=2:CD=0 

930 IF I*="4" THEN CC=*70:CE=-2:CD=-4 

940 IF PEEK(*E001) = 127 THEN BEEP:GOTO"WRITE" 

950 IF VAL(I *)<1 OR VAL<I*)>4 THEN 880 
960 CURS0R26,0:PRINT"PEN OFF" 

970 GOSUB"XYI":G0SUB220 

980 IF I*="fl" THEN LC=1:BEEP:CR=0:CURS0R26,0:PRINT"PEN OFF" 

990 IF I*="B" THEN LC=0:BEEP:CR=0:CURS0R26,O:PRINT"PEN ON " 

1000 IF I*=CHR*(13)THEN CLS:GOTO"WRITE" 

1010 IF LC THEN 970 
1020 XO=X:YO=Y:I0*=I* 

1030 GOSUB"XYI":IF PEEK(*CFF4)=0THEN1030 
1040 POKE *CFFF+CX+CY*40,*1B 

1050 POKE *CFFO,X,Y:USR(*C603>:CM=PEEK(*CFF2) 

1060 IF IO*=I* AND(I *="li" OR I *= "It" ) THENCR=* 19 

1070 IF IO*=I* AND<I*="E" OR I *= "B" )THENCR=* 18 

1080 IFCM=*18 AND CR=*19THENCR=CC:GOTO1230 

1090 IFCM=*19 AND CR=*18THENCR=CC:G0T01230 

1100 IF PEEK (*E001 >0191 THEN 1150 

1110 IFI*= "U"THENCR=*6D-CE:G0T01240 

1120 I FI *="I!"THENCR=*5C-CE: GOTO 1240 

1130 IFI*="E"THENCR=*5D—CEsGOTO1240 

1140 IFI *="E"THENCR=*6C-CEs GOTO1240 

1150 IFI0*="E"ANDI*="U"THENCR=*65+CD:GOTO1240 

1160 IFI0*="E"ANDI*="1J"THENCR=*64+CD:G0T01240 

1170 IFI0*="E"ANDI*="1!"THENCR=*55+CD: GOTO 1240 

1180 IFI0*="E"ANDI*="I!"THENCR=*54+CD:GOTO1240 

1190 IFI0*="1!" ANDI*="E"THENCR=*65+CD:G0T01240 

1200 I FI0*="U"ANDI*="E"THENCR=*55+CD:GOTO1240 

1210 IFI0*="I!"ANDI*="E"THENCR=*64+CD:G0T01240 

1220 I FI0*="|J" ANDI*="E"THENCR=*54+CD:G0T01240 

1230 POKE *CFFO,X,Y,CR,8:USR<*C600>:IO*=I*:G0T0980 

1240 POKE *CFF0,X0,Y0,CR,8:X=X0:Y=Y0:USR<*C600):G0T09B0 

1250 POKE *CFFO,XO,YO,CR,8:USR<*C600>:G0T09B0 

1260 LABEL "WRITE" 

1270 CURS0R24,17:PRINTTAB(24);"1)PARTS ";TAB(24);"2)LINE ";TAB( 

24 >;"3)BOX ";TAB(24);"4)WRITE END" 

1280 GET I * 

1290 IF VAL(I*><5 AND VAL<I*)>0 THEN GOSUB"COLOR" 

1300 IF I*="2" THEN "LINE" 

1310 IF I*="3" THEN "BOXW" 

1320 IF I*="4" RETURN 

1330 IF PEEK(*E001>=127 THEN RETURN 

1340 IF I*<>"1" THEN 1280 

1350 CA=0:ZY=1:ZX=1:MY=0:MX=0:P0KE*CFF3,*18:USR(*C615) 

1360 CONSOLE1,16,24,16:XO=X:YO=Y:QX=MX:QY=MY 

1370 USR(*C60F):IF PEEK(*CFF4)<>OTHENPOKE*CFFF+WX+WY*40,0,0:POKE*CFFF+WX+(WY+1)* 
40,0,O:GOSUB"XYI":CURSOR1,24:PRINT"B" ELSE 1370 
1380 IF PEEK < *E001)<>191THEN1470ELSE X=XO:Y=YO 
1390 IF I*="U" THEN MY=MY-ZY 

1400 IF MY<0 THEN MY=0:CA=ABS((CA-1)M0D3):MX=0 
1410 IF I*="!!" THEN MY=MY+ZY 

1420 IF MY>15 THEN MY=0:CA=ABS((CA+1)M0D3):MX=0 

1430 IF I*="E" AND MX>0 THEN MX=MX-ZX 

1440 IF I*="E" AND MX<15THEN MX=MX+ZX 

1450 IF CA=2 AND(MY=5 OR MY=6)THEN MX=0 

1460 POKE *CFF3,CB(CA+1):USR < *C615) 

1470 IF CA=0 THEN ZX=1:ZY=1:POKE *D018+MX+(MY+1)*40,*EF 

1480 IF CA=1 THEN POKE *CFFF+CX+CY*40,*EF,*EF:POKE *CFFF+CX+<CY+1)*40,*EF,*EF:ZX 
=2:ZY=2:POKE *D01S+MX+(MY-H )*40,*EF,*EF:P0KE*D018+MX+ <MY+2)*40,*EF,*EF 
1490 IF CA=2 AND MY<=6 THEN POKE *CFFF+CX+CY*40,*EF,*EF:ZX=2:ZY=1:POKE *D01B+MX+ 
(MY+1)*40,*EF,*EF 

1500 IF CA=2 AND MY>6 THEN POKE*CFFF+CX+<CY+1)*40,*EF:ZX=1:ZY=2:P0KE*D018+MX+<MY 

+1> *40,*EF:P0KE*D018+MX +(MY+2)*40,*EF 

1510 IF I*=CHR*(13)THEN CONSOLE:GOTO"WRITE" 

1520 IF 1*0" " THEN 1360ELSE BEEP 
1530 CR=MX+MY*16 

1540 IF CA=0 THEN POKE *CFFO,X,Y,CR,8:USR(*C600) 

1550 IF CA=1 THEN POKE *CFFO,X,Y,CR,*48:USR(*C600):POKE *CFFO,X+l,Y,CR+1,*48:USR 
(*C600):POKE *CFFO,X,Y+1,CR+16,*48:USR<*C600):POKE *CFFO,X +1,Y+1,CR+17, *48:USR(* 
C600) 

1560 IF CA=2 AND MY<=7 THEN POKE *CFFO,X,Y,CR,*88:USR(*C600):POKE *CFFO,X+l,Y,CR 
+ 1,*88:USR < *C600) 

1570 IF CA=2 AND MY>=6 THEN POKE *CFFO,X,Y,CR,*88:USR<*C600):POKE *CFFO,X,Y+l,CR 
+ 16,*88:USR < *C600) 

1580 GOTO1360 
1590 LABEL "KEY" 

1600 CURS0R26,17:PRINT"ALP" 

1610 GOSUB"XYI" 

1620 IF PEEK<*CFF4)=0 THEN 1610 

1630 IF I*=CHR*(13):PRINTCHR*(25):RETURN 

1640 IFX>100THENX=0ELSECH=—1 

1650 CH=—1 

1660 IF ASC(I *)<=24THEN 1610 

1670 IF I*=CHR*<26) THEN PRINTCHR*<26):BEEP:CURS0R26,17:PRINT"tl r":G0T01610 

1680 IF I*=CHR*(25) THEN PRINTCHR*(25):BEEP:CURS0R26,17:PRINT"ALP":G0T01610 

1690 I FI*> = "A" ANDI*< = "Z"THENCH=ASC(I*)-65:IF PEEK(*E001)=254THENCH=CH+26 

1700 IFI*> = "0" ANDI*< = "9"THENCH=ASC(I *)+4 

1710 IFI*> = "9" ANDI*< = "*"THENCH=ASC(I *)—72 

1720 IFI*="-"THEN CH=128 

1730 I FI *=" + '? THEN CH=129 

1740 IFI*="/"THEN CH=130 

1750 IFI*="*"THEN CH=131 

1760 IFI*="B"THEN CH=132 

1770 IFI*="fl"THEN CH=133 
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1780 IFI$="."THEN CH=144 
1790 I FI$=","THEN CH=145 
1800 IFI$="("THEN CH=146 
1810 I FI*=")"THEN CH=147 
1820 IFI$="$"THEN CH=148 
1830 IFI *="*/."THEN CH=149 
1840 IFITHEN CH=150 
1850 I FI$=" = "THEN CH=151 

I860 I FI$=" "THEN POKE *CFF0,X,Y,0,OsUSR(*C600):X = X + 1:G0T01890 

1870 IFCH=—1 THEN BEEP:G0T01610 

1880 POKE *CFFO,X,Y,CH,SC8:USR(*C600>:X = X + 1 

1890 P0KE$CFFF+CX+CY*40,0:GOSUB220:G0T01610 

1900 LABEL "QD" 

1910 PAL, 0,0,0: PRI NT"SilEEQD MODE" 

1920 DIR:PRINTTAB(7)5"SAVE OR LOAD?":PRINTTAB(3)"(FI OR F2 >" 

1930 GET K$:IF K$="B"THEN 1970 
1940 IFK$="fl"THEN 1990 
1950 IF PEEK(*E001)=127 THEN RETURN 
1960 GOTO 1930 

1970 PRINT" SAVE!INPUT"MAP NAME?";FL$:IFLEN(FL$)>11 THEN FL*=LEFT$(FL$,16) 
1980 USR<*C609,FL*):PAL,3:RETURN 

1990 PRINT" LOAD!INPUT"MAP NAME?";FL*:IFLEN(FL$)>11 THEN FL*=LEFT$(FL$,16) 
2000 USR<*C606,FL*):PAL,3:RETURN 
2010 LABEL "MAP" 

2020 PAL,0,7,7:CLS:FPRINTCO, 03:FOR I=1T01000:FPRINTI:NEXT:PRINT"HISEEEEMAP OF L 

AYOUT":POKE *1OSD,2,1 

2030 USR(*C612):POKE *CFF3,0 

2040 CURSOR 10,23:PRINT"HIT ANY KEY." 

2050 GET I$:IF 1$="" THEN 2050 

2060 PAL,3,0,3:CLS2:USR($C615):RETURN 

2070 LABEL "ALLCLS" 

2080 CLS3: PRI NT "6SJIIALL CLEAR OF MAP" 

2090 PRINTTAB<10)?"OK?" 

2100 GET I*:IFI*="" THEN2100 
2110 IF I*="Y"THEN USR(*C618> 

2120 USR(*C60C):RETURN 
2130 LABEL "PRINTER" 

2140 PRINT/P CHR*<*9> 

2150 FOR XI=100T01STEP-1:PRINT/P CHR*(*1B,*18,*E0,*1);:FOR YI=1T060 
2160 CURSORO,O:PRINT"PRINTING "USING"X= ###";XI;:PRINTUSING" Y= ##";YI 
2170 POKE *CFF0,XI,YI:USR<$C603):CN=PEEK(*CFF2> 

2180 IF PEEK($CFF3)=0 THEN A*=HEXCHR*<"0000000000000000"):G0T02240 

2190 IF PEEK($CFF3)= 8 THEN CR=CN+1 

2200 IF PEEK(*CFF3)=*48 THEN CR=257+CN 

2210 IF PEEK($CFF3)=$88 THEN CR=513+CN 

2220 IF PEEK(*CFF3)=*C8 THEN CR=769+CN 

2230 A*=LEFT*(F0NT*<2,CR>,8) 

2240 USR(*C61B,A*> 

2245 NEXT YI:NEXT XI:RETURN 
2250 LABEL "COLOR" 

2260 CO=VAL(I*> 

2270 FOR CU=1T04:IF CO=CU THEN CP=7 ELSE CP=2 
2280 FOR Cl=24T039:CCOLORCI,16+CU,2,CP:NEXT Cl,CU 
2290 RETURN 
2300 LABEL "ERROR" 

2310 F0RI = 1T05: WAIT300:PRINT"HIBaEEHB5an3CAUTI0N ! ! " : BEEP: WAI T250: PRI NT"E1S3ZX2EE! 
E£BE C3" : WAI T300: NEXT: PRI NTTAB (5) ; 

2320 IF ERN=46 PRINT"QD WRITE PROTECT" 

2330 IF ERN=53 PRINT"TOO MANY MAPS" 

2340 IF ERN=40 PRINT"MAP FILE NOT FOUND" 

2350 IF ERN=42 PRINT"ILLEGAL MAP’S NAME" 

2360 IF ERN=50 PRINT"QD OFFLINE" 

2370 IF ERN=60 PRINT"ALREADY EXIST" 

2380 IF ERN=61 PRINT"NOT MAP’S FILE" 

2390 IF ERN=65 PRINT"PRINTER OFFLINE":WAIT2000:RESUME20 
2400 PRINTTAB(10);"HIT ANY KEY" 

2410 GET K$:IF K*="" THEN 2410 
2420 RESUME "QD" 


1P07) 


DESP 


51k 


LS93A 


■ 01 * 



LS04 LS155 


LED xQ 







-lilt tut 


> 14 

r 

—U— 

c 

abcdef9D 




> 


o 

P 




10k< 

W 

m 


8 


10 

—AA-Jm 

.j 

1 


16 


4.7k 







r 

— u— 

C 





s 


o 





10k< 

W 

m 




11 


JF 

2 




4-7k 


■ iii 11111 




— \-i — 

C 

abcdef9D 

r 

13 


v 

M 

o 

P 

3 


10k\ 

w 

m 


15 


. . { 

7 

1 


1 

12 

—A A— 

\ —i 






4.7k 

r 

—j-r - 

C 





Am./ 

M 

o 



abcde-f^P 




$68fl 

< :<cS 


25691111 

20 

11 2569 


1111 

10 

34783473 

1 




«LS04 


. 01 * 


DDDDDDDD 

01234567 

"-9 iV'7 

(CPU) 


186 Oh! MZ 1986.1. 


► 12£] STUDIO MZp.l79£>?SfF2/L, fit 7^gfite>1500*1£o X l 't t**, RAM 7 r 

Xf? (2D 













































ijXh3 FONT. OBJ 


BOOO 

21 

12 

BO 

11 

00 

DO 

01 

00 

C5 


B278 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 


B4D8 

06 

00 

00 

00 

00 

00 

00 

00 : 

• 06 

BOOS 

20 

3E 

01 

D3 

E5 

ED 

BO 

D3 

87 













B4E0 

00 

00 

00 

00 

00 

00 

00 

00 : 

: 00 

BOIO 

E6 

C9 

00 

00 

00 

00 

00 

00 

AF 


SUM: 

08 

08 

00 

00 

00 

00 

00 

00 

: 10 


B4E8 

00 

00 

00 

00 

00 

00 

00 

00 ! 

! 00 

Boie 

00 

00 

00 

00 

00 

00 

00 

00 

00 













B4F0 

00 

00 

00 

00 

00 

00 

00 

00 ! 

: 00 

B020 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2B0 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 


B4F8 

00 

00 

00 

00 

00 

00 

00 

00 ! 

: 00 

B028 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B288 

00 

00 

00 

00 

00 

00 

00 

00 : 

: 00 












B030 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B290 

00 

00 

00 

00 

00 

03 

04 

08 

: OF 


SUM: 

F6 

30 

FC 

DE 

94 

88 

6E 

4E : 

:D8 

B038 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B298 

08 

08 

00 

00 

00 

EO 

10 

08 : 

: 08 












B040 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2A0 

08 

08 

00 

00 

00 

09 

08 

00 

: 21 












B048 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2A8 

00 

08 

00 

00 

00 

98 

08 

00 : 

: A8 


(B500- B57Fli00T'titf)T < 1 



B050 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2B0 

00 

08 

00 

oo 

00 

OF 

08 

08 

: 27 


B580 

00 

00 

00 

00 

00 

00 

00 

00 : 

: 00 

B058 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2B8 

08 

08 

00 

00 

00 

F8 

08 

08 i 

: 18 


B588 

00 

00 

00 

00 

00 

00 

00 

00 :00 

B060 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2C0 

08 

08 

99 

00 

80 

80 

00 

00 

: A9 


B590 

00 

00 

08 

08 

7F 

08 

14 

22 

CD 

B068 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2C8 

80 

80 

99 

00 

00. 

01 

01 

00 ! 

:9B 


B598 

41 

7F 

C4 

A4 

94 

8F 

94 

A4 

83 

B070 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2D0 

00 

01 

FF 

80 

80 

80 

80 

80 

: 80 


B5A0 

C4 

00 

7F 

41 

22 

14 

08 

7F 

41 

B078 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2D8 

80 

80 

FF 

01 

01 

01 

01 

01 : 

:04 


B5A8 

08 

08 

23 

25 

29 

FI 

29 

25 

CO 












B2E0 

01 

01 

00 

00 

1C 

FF 

1C 

08 

: 41 


B5B0 

23 

00 

00 

00 

00 

00 

00 

00 

23 

SUM: 

27 

19 

B1 

E4 

E5 

BD 

B1 

D3 

• FB 


B2E8 

08 

08 

08 

08 

1C 

FC 

1C 

08 : 

:5C 


B5B8 

00 

00 

08 

48 

7F 

09 

14 

22 

OE 












B2F0 

08 

08 

00 

00 

00 

FF 

08 

08 i 

: IF 


B5C0 

41 

7F 

C6 

A4 

94 

8F 

94 

A4 

85 

B080 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B2F8 

08 

08 

08 

08 

08 

F8 

08 

08 : 

: 30 


B5C8 

CC 

00 

7F 

41 

22 

14 

09 

7F 

4A 

B088 

00 

00 

00 

00 

00 

00 

00 

00 

00 













B5D0 

48 

08 

63 

25 

29 

FI 

29 

25 

40 

B090 

00 

00 

08 

08 

1C 

FF 

1C 

08 

4F 


SUM: 

39 

4A 

40 

91 

41 

7F 

FE 

Cl : 

:D3 


B5D8 

33 

00 

00 

00 

GO- 

00 

00 

00 

33 

B098 

08 

08 

08 

1C 

2A 

C9 

08 

08 

37 













B5E0 

00 

00 

00 

24 

24 

E7 

24 

24 

77 

BOAO 

08 

08 

08 

08 

08 

08 

3E 

1C 

8A 


B300 

08 

08 

00 

00 

00 

FF 

04 

08 

IB 


B5E8 

00 

00 

08 

08 

3E 

00 

00 

3E 

8C 

BOA8 

08 

00 

00 

08 

1C 

3E 

08 

08 

7A 


B308 

08 

08 

08 

08 

08 

EB 

18 

08 

30 


B5F0 

08 

08 

00 

00 

00 

00 

00 

00 

10 

BOBO 

08 

08 

3E 

1C 

08 

FF 

00 

00 

71 


B310 

08 

08 

08 

08 

04 

03 

00 

00 

27 


B5F8 

00 

00 

00 

34 

2C 

F7 

2C 

34 

B7 

B0B8 

00 

00 

08 

08 

09 

OB 

OF 

OB 

3E 


B318 

00 

00 

08 

08 

10 

EO 

00 

00 

00 












BOCO 

09 

08 

22 

14 

08 

FF 

00 

00 

4E 


B320 

00 

00 

08 

00 

00 

09 

00 

00 

11 


SUM: 

CO 

16 

26 

C4 

4A 

17 

03 

6A : 

: 8E 

B0C8 

00 

00 

08 

08 

09 

OA 

OC 

OA 

39 


B328 

00 

00 

08 

00 

00 

98 

00 

00 

AO 












BODO 

09 

08 

00 

00 

00 

FF 

00 

00 

10 


B330 

00 

00 

08 

08 

08 

OF 

00 

00 

27 


B600 

00 

00 

08 

08 

3E 

14 

2A 

3E 

CA 

B0D8 

00 

00 

08 

08 

08 

08 

08 

08 

30 


B338 

00 

00 

08 

08 

08 

F8 

00 

00 

10 


B608 

08 

08 

00 

00 

00 

00 

00 

00 

10 

BOEO 

08 

08 

00 

04 

08 

FF 

20 

40 

7B 


B340 

00 

00 

00 

00 

80 

80 

00 

00 

00 


B610 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B0E8 

00 

00 

08 

OA 

OC 

08 

18 

28 

66 


B348 

80 

99 

01 

00 

00 

01 

01 

00 

1C 


B618 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BOFO 

08 

08 

FF 

00 

00 

00 

00 

00 

OF 


B350 

00 

99 

80 

80 

80 

80 

80 

80 

99 


B620 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B0F8 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B358 

80 

FF 

01 

01 

01 

01 

01 

01 

85 


B628 

00 

00 

00 

00 

00 

00 

00 

00 

00 












B360 

01 

FF 

08 

08 

1C 

IF 

1C 

08 

6F 


B630 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

42 

38 

97 

8A 

A8 

2F 

C5 

B9 

FO 


B368 

08 

08 

08 

08 

1C 

FF 

1C 

00 

57 


B638 

00 

00 

00 

00 

00 

00 

00 

00 

00 












B370 

00 

00 

08 

08 

08 

OF 

08 

08 

37 


B640 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BlOO 

00 

FF 

80 

80 

80 

80 

80 

80 

FF 


B378 

08 

08 

08 

08 

08 

FF 

00 

00 

27 


B648 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B108 

80 

80 

01 

01 

01 

01 

01 

01 

06 













B650 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B110 

01 

01 

08 

14 

08 

08 

08 

08 

3E 


SUM: 

29 

58 

DA 

C9 

75 

AO 

DE 

A1 : 

:B8 


B658 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B118 

08 

08 

00 

00 

02 

FD 

02 

00 

11 













B660 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B120 

00 

00 

00 

00 

40 

BF 

40 

00 

3F 


B380 

00 

00 

08 

08 

OC 

OB 

08 

08 

37 


B668 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B128 

00 

00 

08 

08 

08 

08 

08 

08 

30 


B388 

08 

08 

08 

08 

10 

FF 

00 

00 

2F 


B670 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B130 

14 

08 

00 

00 

00 

FF 

08 

14 

37 


B390 

00 

00 

08 

08 

08 

FF 

08 

08 

27 


B678 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B138 

08 

08 

08 

08 

28 

D8 

28 

08 

50 


B398 

08 

08 

00 

00 

18 

24 

24 

18 

88 












B140 

08 

08 

08 

14 

08 

FF 

00 

00 

33 


B3A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 


SUM: 

08 

08 

08 

08 

3E 

14 

2A 

3E : 

: DA 

B148 

00 

00 

08 

08 

OA 

OD 

OA 

08 

39 


B3A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 












B150 

08 

08 

00 

00 

00 

99 

00 

00 

A9 


B3B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B680 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B158 

00 

00 

08 

00 

00 

08 

08 

00 

18 


B3B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B688 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B160 

00 

08 

08 

08 

08 

08 

7F 

55 

FC 


B3C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B690 

00 

00 

08 

08 

08 

3C 

00 

00 

54 

B168 

2A 

54 

00 

00 

00 

00 

00 

00 

7E 


B3C8 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B698 

00 

FF 

00 

00 

00 

3C 

00 

00 

3B 

B170 

00 

00 

99 

00 

00 

00 

00 

00 

99 


B3D0 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B6A0 

00 

FF 

00 

00 

00 

00 

00 

00 

FF 

B178 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B3D8 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B6A8 

00 

00 

80 

80 

88 

8F 

88 

88 

27 












B3E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B6B0 

80 

80 

80 

80 

88 

88 

88 

88 

20 

SUM: 

DF 

04 

52 

C9 

15 

D9 

94 

OA : 

:8A 


B3E8 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B6B8 

80 

80 

00 

00 

00 

00 

00 

00 

00 












B3F0 

00 

00 

08 

OC 

OA 

OB 

OC 

08 

3D 


B6C0 

00 

00 

18 

FF 

00 

42 

A5 

42 

40 

B180 

00 

99 

80 

00 

00 

80 

80 

00 

19 


B3'^8 

08 

08 

00 

00 

00 

FF 

12 

OC 

2D 


B6C8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B188 

00 

80 

01 

00 

00 

01 

01 

00 

83 













B6D0 

00 

00 

40 

30 

08 

46 

A5 

42 

A5 

B190 

00 

01 

CO 

30 

OC 

03 

00 

00 

00 


SUM: 

18 

18 

20 

24 

46 

37 

52 

3C i 

: 7F 


B6D8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B198 

00 

00 

00 

00 

00 

00 

00 

00 

00 













B6E0 

00 

00 

48 

54 

48 

CO 

CO 

48 

AC 

B1 AO 

00 

00 

03 

OC 

30 

CO 

00 

00 

FF 


B400 

08 

08 

00 

00 

00 

FF 

10 

08 

27 


B6E8 

54 

48 

00 

00 

00 

00 

00 

00 

9C 

B1A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B408 

08 

08 

08 

08 

18 

E8 

08 

08 

30 


B6F0 

00 

00 

08 

14 

18 

20 

40 

48 

DC 

BIBO 

00 

00 

00 

00 

00 

03 

OC 

10 

IF 


B410 

08 

08 

00 

00 

00 

00 

00 

00 

10 


B6FS 

94 

08 

00 

00 

00 

00 

00 

00 

9C 

B1B8 

20 

CO 

00 

00 

00 

00 

00 

00 

EO 


B418 

00 

00 

00 

00 

00 

00 

00 

00 

00 












B1C0 

00 

00 

00 

00 

00 

CO 

30 

08 

F8 


B420 

00 

00 

00 

00 

00 

00 

00 

00 

00 


SUM: 

E8 

4E 

BO 

9F 

80 

F7 

5A 

24 : 

:7A 

B1C8 

04 

03 

00 

00 

00 

00 

00 

00 

07 


B428 

00 

00 

00 

00 

00 

00 

00 

00 

00 












B1D0 

00 

00 

08 

08 

10 

20 

40 

40 

CO 


B430 

00 

00 

00 

00 

00 

00 

00 

00 

00 


(R7f]0~ R 7 

FF llOOT'iitfiT < l') 


B1D8 

80 

80 

08 

08 

04 

04 

02 

02 

1C 


B438 

00 

00 

00 

00 

00 

00 

00 

00 

00 












B1E0 

01 

01 

00 

00 

00 

00 

00 

00 

02 


B440 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B800 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B1E8 

00 

00 

01 

01 

02 

02 

04 

04 

OE 


B448 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B808 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B1F0 

08 

08 

00 

00 

00 

00 

00 

00 

10 


B450 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B810 

00 

00 

07 

19 

21 

41 

41 

81 

44 

B1F8 

00 

00 

80 

80 

40 

20 

10 

10 

80 


B458 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B818 

9F 

83 

CO 

30 

08 

04 

04 

02 

24 












B460 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B820 

F2 

82 

07 

18 

20 

FC 

42 

81 

72 

SUM: 

AD 

66 

D5 

CD 

92 

4D 

13 

6E : 

: 15 


B468 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B828 

80 

87 

EO 

18 

04 

42 

42 

41 

CB 












B470 

00 

00 

08 

18 

24 

FF 

00 

00 

43 


B830 

Cl 

FF 

OB 

OC 

18 

28 

28 

48 

87 

B200 

08 

08 

00 

00 

00 

00 

00 

00 

10 


B478 

00 

00 

08 

08 

18 

E8 

28 

18 

50 


B838 

44 

42 

E8 

18 

OC 

OA 

OA 

89 

2F 

B208 

00 

00 

00 

00 

00 

00 

00 

00 

00 













B840 

91 

A1 

07 

18 

20 

43 

43 

83 

7A 

B210 

00 

00 

00 

00 

00 

00 

00 

00 

00 


SUM: 

18 

18 

18 

28 

54 

CE 

40 

28 : 

: FA 


B848 

83 

FF 

EO 

18 

04 

3F 

42 

81 

80 

B218 

00 

00 

00 

00 

00 

00 

00 

00 

00 













B850 

El 

01 

07 

18 

20 

40 

40 

8F 

30 

B220 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4B0 

08 

08 

08 

08 

08 

OB 

OC 

08 

47 


B858 

82 

84 

EO 

98 

84 

82 

82 

F9 

FF 

B228 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B488 

08 

08 

08 

08 

04 

FF 

00 

00 

23 


B860 

41 

29 

03 

OC 

10 

FF 

20 

40 

EB 

B230 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B490 

00 

00 

08 

14 

08 

14 

22 

41 

9B 


BB6S 

40 

40 

EO 

18 

04 

22 

A2 

61 

A1 

B238 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B498 

7F 

08 

60 

50 

4A 

C5 

4A 

50 

EO 


B870 

21 

3F 

10 

17 

18 

30 

50 

50 

6F 

B240 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4A0 

60 

00 

08 

7F 

41 

22 

14 

08 

66 


B87S 

9C 

98 

10 

FO 

18 

14 

12 

12 

84 

B248 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4A8 

14 

08 

06 

OA 

52 

A3 

52 

OA 

7D 












B250 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4B0 

06 

00 

00 

00 

00 

00 

00 

00 

06 


SUM: 

CB 

32 

72 

AS 

7D 

5E 

66 

A5 : 

: FD 

B258 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4B8 

00 

00 

08 

08 

08 

14 

22 

41 

8F 












B260 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4C0 

7F 

08 

60 

50 

48 

C7 

48 

50 

DE 


B880 

11 

11 

07 

18 

20 

44 

44 

85 : 

: 6E 

B268 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4C8 

60 

00 

08 

7F 

41 

22 

14 

08 

66 


B88S 

86 

FC 

CO 

30 

08 

7F 

84 

02 : 

: 7F 

B270 

00 

00 

00 

00 

00 

00 

00 

00 

00 


B4D0 

08 

08 

06 

OA 

12 

E3 

12 

OA 

31 


B890 

02 

02 

85 

89 

91 

50 

50 

30 : 

! 73 


0h/MZO^BO18B^t,t c ^L < T, l\n<DX i BH50/'ofc D n _ Q - 

t'it, r t r o**(7)^:Jl$A.* t —B-¥-«.'ttt% 1 Lttfc TheSffp n p*S i<5/ 

<.'j fc#*., oi'*M$^<'0£lTl*9<?)ri/s:o ULi* $ (36) TUm 



































B898 

18 

17 

42 

22 

12 

14 

14 

18 

E5 


BB18 

10 

10 

00 

00 

80 

80 

EO 

10 

10 


BD98 

OF 

08 

19 

39 

OA 

OA 

OC 

18 

A1 

B8A0 

30 

DO 

80 

81 

42 

FC 

20 

18 

77 


BB20 

28 

E8 

00 

00 

FF 

80 

7C 

52 

5D 


BDAO 

E8 

08 

40 

42 

23 

FF 

10 

OC 

BO 

B8A8 

07 

00 

Cl 

41 

42 

42 

04 

18 

A9 


BB28 

32 

29 

00 

00 

00 

CO 

20 

10 

4B 


BDA8 

03 

00 

61 

A1 

22 

A2 

04 

18 

E5 

B8B0 

EO 

00 

41 

4F 

40 

20 

20 

10 

00 


BB30 

10 

1C 

30 

28 

27 

20 

20 

23 

OE 


BDBO 

EO 

00 

94 

82 

9F 

40 

40 

20 

35 

B8B8 

OC 

03 

Cl 

F9 

81 

82 

82 

84 

D2 


BB38 

24 

24 

OC 

34 

D4 

74 

94 

14 

78 


BDB8 

18 

07 

21 

41 

FI 

02 

02 

04 

7A 

B8C0 

98 

EO 

83 

82 

42 

42 

20 

18 

39 


BB40 

64 

84 

00 

00 

00 

03 

04 

08 

F7 


BDCO 

18 

EO 

86 

85 

44 

45 

20 

18 

C4 

B8C8 

07 

00 

01 

81 

42 

3F 

04 

18 

26 


BB48 

08 

38 

00 

00 

FF 

01 

3E 

4A 

C8 


BDC8 

07 

00 

02 

42 

C4 

FF 

08 

30 

46 

B8D0 

EO 

00 

88 

88 

48 

48 

28 

18 

CO 


BB50 

4C 

94 

01 

01 

01 

01 

07 

08 

F3 


BDDO 

CO 

00 

04 

06 

09 

08 

10 

10 

FB 

B8D8 

OF 

08 

19 

39 

OA 

OA 

OC 

18 

A1 


BB58 

10 

10 

00 

00 

00 

80 

EO 

10 

90 


BDD8 

20 

3F 

20 

60 

BO 

10 

08 

08 

AF 

B8E0 

E8 

08 

40 

42 

23 

FF 

10 

OC 

BO 


BB60 

08 

08 

00 

00 

FF 

80 

80 

80 

BF 


BDEO 

04 

FC 

84 

82 

87 

BC 

BO 

CO 

89 

B8E8 

03 

00 

61 

A1 

22 

A2 

04 

18 

E5 


BB68 

80 

80 

00 

00 

00 

CO 

20 

10 

FO 


BDE8 

00 

00 

20 

CO 

00 

00 

00 

00 

EO 

B8F0 

EO 

00 

94 

82 

9F 

41 

41 

21 

38 


BB70 

10 

IF 

3F 

20 

20 

20 

20 

20 

OE 


BDFO 

00 

00 

02 

02 

01 

00 

00 

00 

05 

B8F8 

19 

07 

21 

41 

FI 

02 

02 

04 

7B 


BB78 

20 

20 

FC 

04 

04 

04 

04 

04 

50 


BDF8 

00 

00 

40 

40 

80 

80 

80 

80 

80 

SUM: 

46 

FO 

4C 

67 

BB 

BE 

A1 

3C 

3F 


SUM: 

IE 

88 

E2 

CC 

C9 

26 

28 

CE : 

39 


SUM: 

99 

77 

89 

18 

F3 

AA 

2B 

F9 s 

: 72 

B900 

18 

EO 

86 

85 

44 

45 

20 

18 

C4 


BB80 

04 

04 

00 

00 

00 

03 

04 

08 

17 


BEOO 

80 

80 

FC 

03 

00 

00 

00 

00 

FF 

B908 

07 

00 

02 

42 

C4 

FF 

08 

30 

46 


BB88 

08 

18 

00 

00 

FF 

01 

01 

01 

22 


BE08 

00 

00 

21 

41 

Cl 

31 

OD 

03 

64 

B910 

CO 

00 

01 

01 

02 

01 

07 

08 

D4 


BB90 

01 

01 

21 

26 

28 

29 

2E 

2B 

F3 


BE10 

00 

00 

01 

01 

07 

08 

14 

13 

38 

B918 

14 

13 

00 

00 

80 

80 

EO 

10 

17 


BB98 

2C 

30 

24 

24 

C4 

04 

04 

E4 

54 


BE 18 

20 

20 

00 

80 

EO 

10 

28 

C8 

AO 

B920 

28 

C8 

00 

00 

FF 

80 

40 

20 

CF 


BBAO 

14 

OC 

24 

24 

23 

40 

80 

FF 

4A 


BE20 

04 

04 

00 

00 

BF 

AO 

DO 

28 

5F 

B928 

20 

10 

00 

00 

00 

CO 

20 

50 

60 


BBA8 

00 

00 

9B 

94 

DO 

20 

CO 

00 

DF 


BE28 

28 

14 

00 

00 

CO 

30 

08 

14 

48 

B930 

90 

BC 

30 

28 

26 

21 

20 

20 

FB 


BBBO 

00 

00 

17 

14 

08 

07 

01 

02 

3D 


BE30 

24 

27 

38 

08 

36 

29 

26 

21 

31 

B938 

20 

20 

OC 

14 

64 

84 

04 

04 

50 


BBB8 

01 

01 

08 

08 

10 

EO 

80 

80 

02 


BE38 

20 

20 

1C 

10 

6C 

94 

64 

84 

54 

B940 

04 

04 

00 

00 

00 

03 

04 

OA 

19 


BBCO 

00 

00 

D9 

29 

OB 

04 

03 

00 

14 


BE40 

04 

04 

00 

00 

03 

OC 

10 

28 

4F 

B948 

09 

39 

00 

00 

FF 

01 

02 

04 

48 


BBC8 

00 

00 

24 

24 

C4 

02 

01 

FF 

OE 


BE48 

24 

64 

00 

00 

FD 

05 

OB 

14 

A9 

B950 

04 

08 

01 

01 

01 

01 

07 

08 

IF 


BBDO 

00 

00 

20 

20 

20 

20 

20 

20 

CO 


BE50 

14 

28 

01 

01 

07 

08 

10 

10 

6D 

B958 

14 

13 

00 

00 

00 

80 

EO 

10 

97 


BBD8 

20 

3F 

04 

04 

04 

04 

04 

04 

77 


BE58 

20 

20 

00 

80 

EO 

10 

08 

08 

CO 

B960 

28 

C8 

00 

00 

FF 

80 

40 

20 

CF 


BBEO 

04 

FC 

80 

80 

80 

80 

80 

FF 

7F 


BE60 

04 

04 

00 

00 

BF 

AO 

DO 

2B 

5F 

B968 

20 

10 

00 

00 

00 

CO 

20 

50 

60 


BBE8 

00 

00 

18 

10 

10 

20 

CO 

00 

18 


BE68 

28 

14 

00 

00 

CO 

30 

08 

04 

38 

B970 

90 

9F 

30 

28 

26 

21 

20 

20 

OE 


BBFO 

00 

00 

10 

10 

08 

07 

01 

00 

30 


BE70 

04 

07 

3B 

08 

36 

29 

26 

21 

FI 

B97B 

20 

20 

OC 

14 

64 

84 

04 

04 

50 


BBF8 

00 

00 

08 

08 

10 

EO 

80 

80 

00 


BE78 

20 

20 

1C 

10 

6C 

94 

64 

84 

54 

SUM: 

08 

66 

02 

41 

9C 

14 

04 

AE 

13 


SUM: 

72 

95 

F4 

37 

91 

29 

El 

3B : 

i 08 


SUM: 

BC 

EE 

C7 

76 

D1 

8C 

40 

E4 : 

: 68 

B9B0 

04 

04 

00 

00 

00 

03 

04 

OA 

19 


BCOO 

80 

80 

F8 

08 

08 

04 

03 

00 

OF 


BEBO 

04 

04 

00 

00 

03 

OC 

10 

20 

47 

B988 

09 

19 

00 

00 

FF 

01 

02 

04 

28 


BC08 

00 

00 

01 

01 

01 

01 

01 

FF 

04 


BE88 

20 

60 

04 

04 

FD 

05 

OB 

14 

A9 

B990 

04 

08 

20 

20 

20 

20 

21 

26 

D3 


BC10 

00 

00 

01 

01 

01 

01 

07 

08 

13 


BE90 

14 

28 

20 

20 

21 

26 

29 

36 

22 

B998 

28 

30 

04 

04 

04 

04 

84 

64 

50 


BC18 

14 

13 

00 

00 

00 

80 

EO 

10 

97 


BE98 

08 

38 

04 

04 

84 

64 

94 

6C 

30 

B9A0 

14 

OC 

10 

20 

20 

40 

80 

FF 

2F 


BG20 

28 

C8 

00 

00 

FF 

80 

80 

80 

6F 


BEAO 

10 

1C 

14 

28 

28 

DO 

AO 

BF 

BF 

B9A8 

00 

00 

8B 

94 

50 

20 

CO 

00 

4F 


BC28 

80 

80 

00 

00 

00 

CO 

20 

50 

30 


BEA8 

00 

00 

26 

24 

14 

08 

30 

CO 

56 

B9B0 

00 

00 

13 

14 

08 

07 

01 

02 

39 


BC30 

90 

9F 

3F 

20 

20 

20 

20 

20 

OE 


BEBO 

00 

00 

20 

20 

13 

14 

08 

07 

76 

B9B8 

01 

01 

C8 

28 

10 

EO 

80 

80 

E2 


BC38 

20 

20 

FC 

04 

04 

04 

04 

04 

50 


BEB8 

01 

00 

04 

04 

C8 

28 

10 

EO 

E9 

B9C0 

00 

00 

D9 

29 

OA 

04 

03 

00 

13 


BC40 

04 

04 

00 

00 

00 

03 

04 

OA 

19 


BECO 

80 

80 

E4 

24 

28 

10 

OC 

03 

4F 

B9C8 

00 

00 

08 

04 

04 

02 

01 

FF 

12 


BC48 

09 

11 

00 

00 

FF 

01 

01 

01 

1C 


BEC8 

00 

00 

28 

14 

14 

OB 

05 

FD 

5D 

B9D0 

00 

00 

20 

20 

20 

20 

21 

26 

C7 


BC50 

01 

01 

01 

01 

01 

01 

02 

02 

OA 


BEDO 

00 

00 

20 

20 

21 

26 

29 

36 

E6 

B9D8 

28 

30 

04 

04 

04 

04 

84 

64 

50 


BC58 

04 

04 

00 

00 

00 

80 

40 

40 

08 


BED8 

08 

38 

04 

04 

84 

64 

94 

6C 

30 

B9E0 

14 

OC 

10 

20 

20 

40 

80 

FF 

2F 


BC60 

20 

20 

00 

00 

FO 

8C 

A3 

FO 

4F 


BEEO 

10 

1C 

14 

28 

28 

DO 

AO 

BF 

BF 

B9E8 

00 

00 

98 

90 

50 

20 

CO 

00 

58 


BC68 

AO 

80 

00 

00 

00 

00 

00 

CO 

EO 


BEE8 

00 

OO 

06 

04 

04 

08 

30 

CO 

06 

B9F0 

00 

00 

13 

14 

08 

07 

01 

00 

37 


BC70 

30 

OF 

3F 

20 

2E 

20 

10 

10 

OC 


BEFO 

00 

00 

20 

20 

10 

10 

08 

07 

6F 

B9F8 

00 

00 

C8 

28 

10 

EO 

80 

80 

EO 


BC78 

08 

08 

FC 

24 

74 

24 

08 

08 

D8 


BEF8 

01 

00 

04 

04 

08 

08 

10 

EO 

09 

SUM: 

8A 

9E 

22 

51 

65 

EO 

D6 

21 ! 

:D7 


SUM: 

F6 

6B 

71 

73 

BF 

3F 

B1 

20 ! 

: 14 


SUM: 

EA 

B4 

F4 

44 

El 

44 

76 

44 : 

:B5 

BAOO 

80 

80 

F9 

09 

OA 

04 

03 

00 

13 


BC80 

10 

10 

00 

00 

00 

00 

00 

03 

23 


BFOO 

80 

80 

EO 

20 

20 

10 

OC 

03 

3F 

BA08 

00 

00 

08 

04 

04 

02 

01 

FF 

12 


BC88 

OC 

10 

00 

00 

OF 

31 

C5 

05 

26 


BF08 

00 

00 

28 

14 

14 

OB 

05 

FD 

5D 

BA 10 

00 

00 

01 

01 

02 

01 

06 

08 

13 


BC90 

05 

01 

20 

20 

20 

20 

20 

20 

C6 


BF 10 

04 

04 

01 

01 

01 

02 

02 

01 

10 

BA 18 
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10 

00 

00 

80 

80 

60 

10 

90 


BC98 

20 

3F 

04 

04 

04 

04 

04 

04 

77 


BF 18 

02 

02 

00 

00 

00 

80 

80 

80 

84 

BA20 

08 

08 

00 

00 

FF 

80 

80 

80 

8F 


BCAO 

04 

FC 

80 

80 

80 

80 

80 

FF 

7F 


BF20 

40 

40 

00 

00 

CO 

BO 

BC 

83 

FF 

BA28 

80 

80 

00 

00 

00 

CO 

20 

10 

FO 


BCA8 

00 

00 

98 

90 

50 

20 

CO 

00 

58 


BF28 

F8 

A4 

00 

00 

00 

00 

00 

00 

9C 

BA30 

10 

OC 

3F 

20 

20 

20 

20 

20 

FB 


BCBO 

00 

00 

13 

14 

08 

07 

01 

00 

37 


BF30 

D8 

27 

3F 

20 

10 

11 

09 

09 

91 

BA38 

20 

20 

FC 

04 

04 

04 

04 

04 

50 


BCB8 

00 

00 

C8 

28 

10 

EO 

80 

80 

EO 


BF38 

05 

04 

FC 

44 

C8 

48 

50 

90 

39 

BA40 

04 

04 

00 

00 

00 

03 

04 

08 

17 


BCCO 

80 

80 

F9 

09 

OA 

04 

03 

00 

13 


BF40 

20 

20 

00 

00 

00 

00 

00 

00 

40 

BA48 

08 

38 

00 

00 

FF 

01 

01 

01 

42 


BCC8 

00 

00 

01 

01 

01 

01 

01 

FF 

04 


BF48 

03 

1C 

00 

00 

03 

OD 

31 

Cl 

21 

BA50 

01 

01 

01 

01 

02 

01 

07 

08 

16 


BCDO 

00 

00 

08 

08 

10 

10 

24 

2E 

82 


BF50 

01 

79 

08 

04 

08 

10 

20 

40 

FE 

BA58 

10 

10 

00 

00 

80 

80 

EO 

10 

10 


BCD8 

24 

3F 

10 

10 

08 

08 

04 

74 

OB 


BF58 

20 

10 

00 

00 

00 

00 

00 

00 

30 

BA60 

18 

78 

00 

00 

FF 

80 

FC 

92 

9D 


BCEO 

04 

FC 

80 

AO 

AO 

A3 

8C 

FO 

DF 


BF60 

00 

80 

00 

00 

00 

00 

00 

00 

80 

BA68 

92 

89 

00 

00 

00 

CO 

20 

10 

OB 


BCE8 

00 

00 

08 

30 

CO 

00 

00 

00 

F8 


BF68 

00 

01 

10 

20 

10 

08 

04 

02 

4F 

BA70 

10 

1C 

3F 

20 

20 

20 

21 

2E 

1A 


BCFO 

00 

00 

04 

04 

02 

02 

01 

00 

OD 


BF70 

04 

08 

00 

20 

50 

88 

05 

02 

OB 

BA78 

28 

29 

FC 

14 

14 

74 

94 

14 

91 


BCF8 

00 

00 

20 

20 

40 

40 

80 

80 

CO 


BF78 

02 

07 

00 

20 

50 

88 

05 

02 

08 

SUM: 

47 

D7 

79 

67 

67 

44 

EB 

DO : 

! 64 


SUM: 

ED 

17 

D5 

86 

EO 

DE 

E3 

BC 

: BC 


SUM: 

E5 

EA 

5C 

FD 

88 

DB 

D7 

A4 : 

: 06 

BA80 

64 

84 

00 

00 

00 

03 

04 

08 

F7 


BDOO 

80 

80 

FO 

OC 

03 

00 

00 

00 

FF 


BF80 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BA88 

08 

38 

00 

00 

FF 

01 

3F 

49 

C8 


BD08 

00 

00 

01 

05 

OF 

C5 

31 

OF 

1A 


BF88 

00 

01 

08 

10 

20 

40 

40 

40 

F9 

BA90 

49 

91 

20 

20 

20 

20 

20 

20 

9A 


BD10 

00 

00 

07 

18 

20 

40 

40 

BF 

4E 


BF90 

40 

50 

04 

04 

09 

OA 

12 

13 

DO 

BA98 

20 

3F 

04 

04 

04 

04 

04 

04 

77 


BD18 

82 

84 

EO 

18 

04 

02 

02 

F9 

FF 


BF98 

22 

3F 

20 

AO 

90 

90 

88 

08 

D1 

BAAO 

04 

FC 

80 

80 

80 

80 

80 

FF 

7F 


BD20 

41 

29 

03 

OC 

10 

FF 

20 

40 

EB 


BFAO 

04 

FC 

9E 

80 

83 

8C 

BO 

CO 

9D 

BAA8 

00 

00 

OB 

14 

10 

20 

CO 

00 

OF 


BD28 

40 

40 

EO 

18 

04 

22 

A2 

61 

A1 


BFA8 

00 

00 

38 

CO 

00 

00 

00 

00 

F8 

BABO 

00 

00 

10 

10 

08 

07 

01 

01 

31 


BD30 

21 

21 

10 

17 

18 

30 

50 

50 

51 


BFBO 

00 

00 

02 

02 

01 

01 

01 

00 

07 

BAB8 

00 

00 

08 

08 

10 

EO 

80 

40 

CO 


BD38 

9C 

98 

10 

FO 

18 

14 

12 

12 

84 


BFB8 

00 

00 

40 

40 

80 

40 

40 

80 

00 

BACO 

80 

80 

D8 

28 

08 

04 

03 

00 

OF 


BD40 

11 

11 

07 

18 

20 

44 

44 

85 

6E 


BFCO 

80 

80 

E4 

IB 

00 

00 

00 

00 

FF 

BAC8 

00 

00 

01 

01 

01 

01 

01 

FF 

04 


BD48 

86 

84 

CO 

30 

08 

7F 

84 

02 

07 


BFC8 

00 

00 

25 

IF 

Cl 

31 

OD 

03 

46 

BADO 

00 

00 

21 

26 

28 

29 

2E 

28 

EE 


BD50 

02 

02 

01 

01 

01 

01 

01 

01 

OA 


BFDO 

00 

00 

09 

07 

09 

10 

20 

40 

89 

BAD8 

28 

3F 

94 

14 

74 

84 

04 

04 

OF 


BD58 

02 

02 

00 

00 

00 

00 

00 

80 

84 


BFD8 

20 

10 

00 

FS 

04 

83 

00 

00 

AF 

BAEO 

04 

FC 

89 

84 

84 

87 

80 

FF 

97 


BD60 

40 

40 

00 

00 

CO 

BO 

BC 

83 

FF 


BFEO 

00 

00 

00 

IF 

20 

Cl 

00 

00 

00 

BAE8 

00 

00 

IB 

94 

90 

EO 

CO 

00 

DF 


BD68 

82 

84 

00 

00 

00 

00 

00 

00 

06 


BFE8 

00 

00 

90 

EO 

90 

08 

04 

02 

OE 

BAFO 

00 

00 

IE 

18 

08 

07 

01 

02 

48 


BD70 

CO 

3F 

3F 

20 

10 

10 

08 

OD 

93 


BFFO 

04 

08 

OA 

02 

02 

02 

02 

04 

22 

BAF8 

01 

01 

08 

08 

10 

EO 

80 

80 

02 


BD78 

06 

04 

FC 

04 

08 

08 

10 

90 

BA 


BFF8 

08 

08 

80 

00 

00 

00 

00 

00 

90 

SUM: 

86 

44 

IF 

6B 

9C 

AF 

IF 

61 : 

: IF 


SUM: 

63 

C6 

DE 

D9 

7B 

F8 

04 

C2 

: 19 


SUM: 

12 

2C 

70 

70 

3D 

36 

FE 

E4 : 

: 73 

BBOO 

00 

00 

D8 

29 

09 

07 

03 

00 ! 

: 14 


BD80 

60 

20 

00 

00 

00 

00 

00 

00 

: 80 


COOO 

00 

00 

00 

00 

40 

AO 

11 

OA ! 

: FB 

BB08 

00 

00 

91 

21 

21 

El 

01 

FF : 

: B4 


BD88 

03 

04 

00 

00 

03 

OD 

31 

El 

: 29 


C008 

04 

00 

EO 

40 

40 

AO 

11 

OA : 

: IF 

BB10 

00 

00 

01 

01 

02 

01 

07 

08 i 

: 14 


BD90 

41 

21 

88 

88 

48 

48 

28 

18 

: 42 


C010 

04 

00 

00 

00 

00 

EF 

11 

2A i 

:2E 
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C018 

2A 

11 

00 

00 

00 

EF 

10 

A8 

E2 

C020 

A8 

10 

00 

IF 

10 

F3 

1C 

IF 

15 

C028 

00 

00 

00 

FO 

70 

9F 

10 

FO 

FF 

C030 

00 

00 

10 

28 

44 

82 

01 

00 

FF 

C038 

00 

00 

10 

28 

44 

82 

01 

00 

FF 

C040 

00 

00 

00 

02 

02 

FE 

03 

2E 

33 

C048 

30 

10 

00 

4C 

70 

FF 

40 

40 

7B 

C050 

00 

00 

00 

00 

00 

00 

00 

01 

01 

C058 

OF 

09 

08 

14 

18 

20 

40 

48 

F4 

C060 

94 

08 

08 

14 

OC 

02 

01 

09 

DO 

C068 

14 

08 

00 

00 

00 

00 

00 

40 

5C 

C070 

FB 

48 

05 

05 

05 

FD 

05 

05 

56 

C07B 

05 

00 

DO 

50 

50 

5F 

50 

50 

74 

SUM: 

BE 

92 

E5 

6A 

73 

2F 

4A 

4A < 

:D5 

C080 

DO 

00 

00 

00 

00 

00 

00 

00 

DO 

C088 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C090 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C098 

00 

00 

00 

00 

00 

00 

00 

00 

00 

COAO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C0A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

COBO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C0B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

COCO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C0C8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CODO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C0D8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

COEO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C0E8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

COFO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C0F8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

DO 

00 

00 

00 

00 

00 

00 

00 ! 

: DO 

Cl 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

Cl 08 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C110 

00 

00 

38 

08 

F6 

09 

06 

01 

46 

Cl 18 

00 

00 

1C 

10 

6F 

90 

60 

80 

OB 

Cl 20 

00 

00 

38 

08 

F6 

29 

26 

21 

A6 

C128 

20 

20 

1C 

10 

6F 

94 

64 

84 

57 

Cl 30 

04 

04 

FO 

08 

06 

01 

00 

00 

07 

C138 

00 

00 

OF 

10 

60 

80 

00 

00 

FF 

Cl 40 

00 

00 

FO 

28 

26 

21 

20 

20 

9F 

C148 

20 

20 

OF 

14 

64 

84 

04 

04 

53 

C150 

04 

04 

FF 

00 

00 

00 

00 

00 

07 

C158 

00 

00 

FF 

00 

00 

00 

00 

00 

FF 

Cl 60 

00 

00 

FF 

20 

20 

20 

20 

20 

9F 

C168 

20 

20 

FF 

04 

04 

04 

04 

04 

53 

Cl 70 

04 

04 

00 

00 

00 

00 

00 

00 

08 

C178 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

6C 

6C 

A2 

A8 

DE 

AO 

38 

6E : 

: 46 

(C 180 

~C 1 FFliOOT'ifAOT < tz$ l') 


C200 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C208 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C210 

00 

00 

00 

00 

01 

06 

09 

F6 

06 

C218 

08 

38 

00 

00 

80 

60 

90 

6F 

IF 

C220 

10 

1C 

20 

20 

21 

26 

29 

F6 

D2 

C228 

08 

38 

04 

04 

84 

64 

94 

6F 

33 

C230 

10 

1C 

00 

00 

00 

00 

01 

06 

33 

C238 

08 

FO 

00 

00 

00 

00 

80 

60 

D8 

C240 

10 

OF 

20 

20 

20 

20 

21 

26 

E6 

C248 

28 

FO 

04 

04 

04 

04 

84 

64 

10 

C250 

14 

OF 

00 

00 

00 

00 

00 

00 

23 

C258 

00 

FF 

00 

00 

00 

00 

00 

00 

FF 

C260 

00 

FF 

20 

20 

20 

20 

20 

20 

BF 

C268 

20 

FF 

04 

04 

04 

04 

04 

04 

37 

C270 

04 

FF 

00 

00 

00 

00 

00 

00 

03 

C278 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

A8 

A2 

6C 

6C 

6E 

38 

AO 

DE : 

: 46 

( C 280 

~ C 

37 F (JOOT'tliOT < 

tzZ ) 


C380 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C388 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C390 

00 

00 

08 

10 

20 

40 

20 

10 

A8 

C398 

08 

04 

00 

00 

00 

00 

00 

00 

OC 

C3A0 

00 

00 

08 

08 

68 

90 

68 

08 

78 

C3A8 

68 

90 

00 

00 

00 

00 

00 

00 

F8 

C3B0 

00 

00 

08 

08 

08 

3E 

32 

32 

BA 

C3B8 

2A 

2A 

00 

00 

00 

00 

00 

00 

54 

C3C0 

00 

00 

08 

08 

28 

48 

C8 

28 

70 

C3C8 

3E 

10 

00 

00 

00 

00 

00 

00 

4E 

C3D0 

00 

00 

00 

00 

00 

CO 

40 

40 

40 

C3D8 

40 

EO 

00 

00 

00 

00 

00 

00 

20 

C3E0 

00 

00 

00 

00 

42 

A5 

46 

08 

35 

C3E8 

30 

40 

00 

00 

00 

00 

00 

00 

70 

C3F0 

00 

00 

08 

08 

08 

08 

7F 

00 

9F 

C3F8 

7F 

41 

00 

00 

00 

00 

00 

00 

CO 


SUM: C7 2F 28 30 02 C3 87 BA :54 


C400 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C408 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C410 

00 

00 

08 

10 

20 

40 

20 

10 

A8 

C418 

08 

04 

00 

00 

00 

00 

00 

00 

OC 

C420 

00 

00 

68 

08 

68 

90 

68 

08 

D8 

C428 

08 

08 

00 

00 

00 

00 

00 

00 

10 

C430 

00 

00 

2A 

26 

26 

3E 

08 

08 

C4 

C438 

08 

08 

00 

00 

00 

00 

00 

00 

10 

C440 

00 

00 

08 

3E 

OC 

OC 

OA 

OA 

72 

C448 

08 

08 

00 

00 

00 

00 

00 

00 

10 

C450 

00 

00 

40 

30 

08 

46 

A5 

42 

A5 

C458 

00 

00 

00 

00 

00 

00 

00' 

00 

00 

C460 

00 

00 

EO 

40 

40 

CO 

00 

00 

20 

C468 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C470 

00 

00 

7F 

00 

7F 

08 

08 

08 

16 

C478 

08 

08 

00 

00 

00 

00 

00 

00 

10 

SUM: 

28 

24 

41 

EC 

81 

28 

47 

74 : 

: DD 

C480 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C488 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C490 

00 

00 

20 

20 

BF 

AO 

DO 

28 

97 

C498 

28 

14 

00 

00 

00 

00 

00 

00 

3C 

C4A0 

00 

00 

04 

04 

FD 

05 

OB 

14 

29 

C4A8 

14 

28 

00 

00 

00 

00 

00 

00 

3C 

C4B0 

00 

00 

80 

80 

FF 

80 

40 

20 

DF 

C4B8 

20 

10 

00 

00 

00 

00 

00 

00 

30 

C4C0 

00 

00 

01 

01 

FF 

01 

02 

04 

08 

C4C8 

04 

08 

00 

00 

00 

00 

00 

00 

OC 

C4D0 

00 

00 

80 

80 

FF 

80 

80 

80 

7F 

C4D8 

80 

80 

00 

00 

00 

00 

00 

00 

00 

C4E0 

00 

00 

01 

01 

FF 

01 

01 

01 

04 

C4E8 

01 

01 

00 

00 

00 

00 

00 

00 

02 

C4F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C4F8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

El 

D5 

26 

26 

B8 

A7 

1 UJ 

1 o 

El : 

: EO 

C500 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C508 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C510 

00 

00 

14 

28 

28 

DO 

AO 

BF 

93 

C518 

20 

20 

00 

00 

00 

00 

00 

00 

40 

C520 

00 

00 

28 

14 

14 

OB 

05 

FD 

5D 

C528 

04 

04 

00 

00 

00 

00 

00 

00 

08 

C530 

00 

00 

10 

20 

20 

40 

80 

FF 

OF 

C538 

80 

80 

00 

00 

00 

00 

00 

00 

00 

C540 

00 

00 

08 

04 

04 

02 

01 

FF 

12 

C548 

01 

01 

00 

00 

00 

00 

00 

00 

02 

C550 

00 

00 

80 

80 

80 

80 

80 

FF 

7F 

C558 

80 

80 

00 

00 

00 

00 

00 

00 

00 

C560 

00 

00 

01 

01 

01 

01 

01 

FF 

04 

C568 

01 

01 

00 

00 

00 

00 

00 

00 

02 

C570 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C578 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

26 

26 

D5 

El 

El 

9E 

A7 

B8 : 

: EO 

C580 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C588 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C590 

00 

00 

20 

20 

AO 

AO 

DO 

28 

78 

C598 

28 

14 

00 

00 

00 

00 

00 

00 

3C 

C5A0 

00 

00 

04 

04 

05 

05 

OB 

14 

31 

C5A8 

14 

28 

00 

00 

00 

00 

00 

00 

3C 

C5B0 

00 

00 

80 

80 

80 

80 

40 

20 

60 

C5B8 

20 

10 

00 

00 

00 

00 

00 

00 

30 

C5C0 

00 

00 

01 

01 

01 

01 

02 

04 

OA 

C5C8 

04 

08 

00 

00 

00 

00 

00 

00 

OC 

C5D0 

00 

00 

80 

80 

80 

80 

80 

80 

00 

C5D8 

80 

80 

00 

00 

00 

00 

00 

00 

00 

C5E0 

00 

00 

01 

01 

01 

01 

01 

01 

06 

C5E8 

01 

01 

00 

00 

00 

00 

00 

00 

02 

C5F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C5F8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

El 

D5 

26 

26 

A7 

A7 

9E 

El : 

: CF 

C600 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C608 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C610 

00 

00 

14 

28 

28 

DO 

AO 

AO 

74 

C618 

20 

20 

00 

00 

00 

00 

00 

00 

40 

C620 

00 

00 

28 

14 

14 

OB 

05 

05 

65 

C628 

04 

04 

00 

00 

00 

00 

00 

00 

08 

C630 

00 

00 

10 

20 

20 

40 

80 

80 

90 

C638 

80 

80 

00 

00 

00 

00 

00 

00 

00 

C640 

00 

00 

08 

04 

04 

02 

01 

01 

14 

C648 

01 

01 

00 

00 

00 

00 

00 

00 

02 

C650 

00 

00 

80 

80 

80 

80 

80 

80 

00 

C658 

80 

80 

00 

00 

00 

00 

00 

00 

00 

C660 

00 

00 

01 

01 

01 

01 

01 

01 

06 

C668 

01 

01 

00 

00 

00 

00 

00 

00 

02 

C670 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C678 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

26 

26 

D5 

El 

El 

9E 

A7 

A 7 ! 

: CF 


(C 680— C 7 FF liOOT'iiaOT < tzZ l') 


C800 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C808 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C810 

00 

00 

00 

18 

24 

42 

7E 

42 

3E 

C818 

42 

42 

00 

7C 

22 

22 

3C 

22 

A2 

C820 

22 

7C 

00 

1C 

22 

40 

40 

40 

9C 

C828 

22 

1C 

00 

78 

24 

22 

22 

22 

40 

C830 

24 

78 

00 

7E 

40 

40 

78 

40 

52 

C838 

40 

7E 

00 

7E 

40 

40 

78 

40 

74 

C840 

40 

40 

00 

1C 

22 

40 

4E 

42 

8E 

C848 

22 

1C 

00 

42 

42 

42 

7E 

42 

C4 

C850 

42 

42 

00 

1C 

08 

08 

08 

08 

CO 

C858 

08 

1C 

00 

OE 

04 

04 

04 

04 

42 

C860 

44 

38 

00 

42 

44 

48 

70 

48 

02 

C868 

44 

42 

00 

40 

40 

40 

40 

40 

C6 

C870 

40 

7E 

00 

42 

66 

5A 

5A 

42 

5C 

C878 

42 

42 

00 

42 

62 

52 

4A 

46 

OA 

SUM: 

AO 

C4 

00 

B2 

C8 

08 

38 

E6 ! 

s 04 

C880 

42 

42 

00 

18 

24 

42 

42 

42 

86 

C888 

24 

18 

00 

7C 

42 

42 

7C 

40 

F8 

CS90 

40 

40 

00 

18 

24 

42 

42 

4A 

8A 

C898 

24 

1A 

00 

7C 

42 

42 

7C 

48 

02 

C8A0 

44 

42 

00 

3C 

42 

40 

3C 

02 

82 

C8A8 

42 

3C 

00 

3E 

08 

08 

08 

08 

DC 

C8B0 

08 

08 

00 

42 

42 

42 

42 

42 

5A 

C8B8 

42 

3C 

00 

42 

42 

42 

24 

24 

8C 

C8C0 

18 

18 

00 

42 

42 

42 

5A 

5A 

AA 

C8C8 

66 

42 

00 

42 

42 

24 

18 

24 

8C 

C8D0 

42 

42 

00 

22 

22 

22 

1C 

08 

OE 

C8D8 

08 

08 

00 

7E 

02 

04 

18 

20 

CC 

C8E0 

40 

7E 

00 

00 

00 

38 

04 

3C 

36 

C8E8 

44 

3A 

00 

40 

40 

5C 

62 

42 

FE 

C8F0 

62 

5C 

00 

00 

00 

3C 

42 

40 

7C 

C8F8 

42 

3C 

00 

02 

02 

3A 

46 

42 

44 

SUM: 

8A 

6A 

00 

8C 

84 

6A 

BA 

2A : 

: 52 

C900 

46 

3A 

00 

00 

00 

3C 

42 

7E 

7C 

C908 

40 

3C 

00 

OC 

12 

10 

7C 

10 

36 

C910 

10 

10 

00 

00 

3A 

46 

46 

3A 

20 

C918 

02 

3C 

00 

40 

40 

5C 

62 

42 

BE 

C920 

42 

42 

00 

08 

00 

18 

08 

08 

B4 

C928 

08 

1C 

04 

00 

OC 

04 

04 

04 

40 

C930 

44 

38 

00 

40 

40 

44 

48 

50 

D8 

C938 

68 

44 

00 

18 

08 

08 

08 

08 

E4 

C940 

08 

1C 

00 

00 

00 

76 

49 

49 

2C 

C948 

49 

49 

00 

00 

00 

5C 

62 

42 

92 

C950 

42 

42 

00 

00 

00 

3C 

42 

42 

44 

C958 

42 

3C 

00 

00 

5C 

62 

62 

5C 

FA 

C960 

40 

40 

00 

00 

3A 

46 

46 

3A 

80 

C968 

02 

02 

00 

00 

00 

5C 

62 

40 

02 

C970 

40 

40 

00 

00 

00 

3E 

40 

3C 

3A 

C978 

02 

7C 

00 

10 

10 

7C 

10 

10 

3A 

SUM: 

E7 

7D 

04 

BC 

B6 

22 

09 

5D : 

! 32 

C980 

12 

OC 

00 

00 

00 

42 

42 

42 

E4 

C988 

42 

3C 

00 

00 

00 

42 

42 

42 

44 

C990 

24 

18 

00 

00 

00 

41 

49 

49 

OF 

C998 

49 

36 

00 

00 

00 

44 

28 

10 

FB 

C9A0 

28 

44 

00 

00 

42 

42 

46 

3A 

70 

C9A8 

02 

3C 

00 

00 

00 

7E 

04 

18 

D8 

C9B0 

20 

7E 

00 

3C 

42 

42 

42 

42 

E2 

C9B8 

42 

3C 

00 

08 

18 

28 

08 

08 

D6 

C9C0 

08 

3E 

00 

3C 

42 

02 

OC 

30 

02 

C9C8 

40 

7E 

00 

3C 

42 

02 

3C 

02 

7C 

C9D0 

42 

3C 

00 

04 

OC 

14 

24 

7E 

44 

C9D8 

04 

04 

00 

7E 

40 

78 

04 

02 

44 

C9E0 

44 

38 

00 

1C 

20 

40 

7C 

42 

B6 

C9E8 

42 

3C 

00 

7E 

42 

04 

08 

10 

5A 

C9F0 

10 

10 

00 

3C 

42 

42 

3C 

42 

5E 

C9F8 

42 

3C 

00 

3C 

42 

42 

3E 

02 

7E 

SUM: 

B3 

8C 

00 

50 

52 

8B 

F7 

Cl : 

124 

CAOO 

04 

38 

00 

3E 

02 

3E 

02 

04 

CO 

CA08 

08 

00 

00 

00 

3E 

02 

OC 

08 

5C 

CA10 

10 

00 

00 

00 

04 

08 

18 

28 

5C 

CA18 

08 

00 

00 

00 

08 

3E 

22 

02 

72 

CA20 

OC 

00 

00 

00 

00 

3E 

08 

08 

5A 

CA28 

3E 

00 

00 

00 

04 

3E 

OC 

14 

AO 

CA30 

24 

00 

00 

00 

10 

3E 

12 

14 

98 

CA38 

10 

00 

00 

00 

00 

1C 

04 

04 

34 

CA40 

3E 

00 

00 

00 

3C 

04 

3C 

04 

BE 

CA48 

3C 

00 

00 

00 

00 

2A 

2A 

02 

92 

CA50 

OC 

00 

00 

00 

00 

1C 

00 

00 

28 

CA58 

00 

00 

3E 

02 

OA 

OC 

08 

08 

66 

CA60 

10 

00 

02 

04 

08 

18 

28 

08 

66 

CA68 

08 

00 

08 

3E 

22 

22 

02 

04 

98 

CA70 

08 

00 

00 

3E 

08 

08 

08 

08 

66 

CA78 

3E 

00 

04 

3E 

04 

OC 

14 

24 

C8 


i XlOMTfcy? h 

&-c & it nor* & & i' l .„ i n n * * n: 3 a $ 4 it w* u ^ tt The ®«s» : ® 
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SUM: 

86 

38 

4C 

FE 

DC 

00 

26 

BO 

BA 


CC18 

00 

00 

00 

00 

00 

08 

08 

3E 

4E 

CDCO 

7E 

00 

00 

78 

44 

79 

64 

78 : 

: 8F 












CC20 

08 

08 

00 

00 

00 

02 

04 

08 

IE 

CDC8 

01 

00 

00 

07 

OC 

47 

C3 

8F : 

: AD 

CABO 

04 

00 

10 

3E 

12 

12 

12 

12 

9A 


CC28 

10 

20 

00 

00 

00 

2A 

1C 

08 

7E 

CDDO 

00 

00 

00 

3D 

19 

19 

99 

18 : 

! 20 

CA88 

24 

00 

08 

3E 

08 

3E 

08 

08 

CO 


CC30 

1C 

2A 

00 

1C 

22 

22 

22 

14 

DC 

CDD8 

00 

00 

00 

37 

34 

34 

35 

E7 : 

: BB 

CA90 

08 

00 

00 

IE 

12 

22 

02 

04 

60 


CC38 

14 

36 

00 

00 

00 

1A 

1A 

IE 

9C 

CDEO 

00 

00 

00 

9C 

49 

C9 

DD 

9C : 

: 27 

CA98 

18 

00 

10 

IE 

24 

04 

04 

04 

76 


CC40 

32 

42 

00 

00 

00 

00 

00 

00 

74 

CDE8 

00 

00 

00 

E2 

32 

70 

70 

EO : 

:D4 

CAAO 

08 

00 

00 

3E 

02 

02 

02 

02 

4E 


CC48 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CDFO 

00 

00 

00 

73 

82 

73 

3A 

F2 \ 

: 94 

CAA8 

3E 

00 

14 

3E 

14 

14 

04 

08 

C4 


CC50 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CDF8 

00 

00 

00 

96 

5B 

D3 

D3 

D3 ! 

: 6A 

CABO 

10 

00 

00 

30 

02 

32 

02 

04 

7A 


CC58 

00 

00 

00 

00 

00 

00 

00 

00 

00 











CAB8 

38 

00 

00 

3E 

02 

04 

08 

14 

98 


CC60 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

48 

00 

AE 

2E 

ID 

F3 

9A 

E8 i 

: B6 

CACO 

22 

00 

10 

3E 

12 

14 

10 

10 

B6 


CC68 

00 

00 

00 

00 

00 

00 

00 

00 

00 











CAC8 

OE 

00 

00 

22 

22 

12 

02 

04 

6A 


CC70 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CEOO 

00 

00 

00 

7B 

32 

33 

32 

32 

44 

CADO 

18 

00 

00 

3C 

24 

54 

OC 

08 

EO 


CC78 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CE08 

00 

00 

00 

80 

40 

CO 

C8 

C8 

10 


oO 

00 

04 

38 

08 

3E 

08 

08 

C2 












CE10 

00 

00 

FF 

80 

AF 

AF 

AO 

BF 

3C 

CAEO 

10 

00 

00 

2A 

2A 

2A 

02 

04 

94 


SUM: 

7A 

CA 

00 

1C 

22 

70 

64 

BE : 

! 14 

CE18 

BE 

BD 

FF 

01 

F5 

F5 

05 

FD 

67 

CAE8 

08 

00 

1C 

00 

3E 

08 

08 

08 

7A 












CE20 

7D 

BD 

FF 

FF 

EO 

EF 

EF 

E8 

DE 

CAFO 

10 

00 

10 

10 

10 

18 

14 

10 

7C 


CC80 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CE28 

EF 

E8 

FF 

FF 

07 

F7 

F7 

17 

El 

CAF8 

10 

00 

08 

08 

3E 

08 

08 

10 

7E 


CC88 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CE30 

F7 

17 

FF 

80 

BF 

BF 

B5 

BF 

7F 












CC90 

00 

00 

00 

00 

00 

00 

00 

18 

18 

CE38 

B5 

BE 

FF 

IF 

DF 

DF 

4B 

DF 

79 

SUM: 

86 

00 

84 

B8 

80 

CC 

7C 

94 

IE 


CC98 

18 

00 

00 

00 

00 

00 

00 

08 

20 

CE40 

5B 

5F 

FF 

00 

AA 

00 

55 

00 

B8 












CCAO 

08 

10 

00 

04 

08 

10 

10 

10 

54 

CE48 

AA 

00 

FF 

OF 

AF 

OF 

6F 

OF 

F4 

CBOO 

20 

00 

00 

1C 

00 

00 

00 

00 

3C 


CCA8 

08 

04 

00 

20 

10 

08 

08 

08 

54 

CE50 

AF 

OF 

FF 

FF 

FF 

FF 

FE 

FD 

B5 

CB08 

3E 

00 

00 

3E 

02 

14 

08 

14 

AE 


CCBO 

10 

20 

00 

08 

IE 

28 

1C 

OA 

A4 

CE58 

FA 

FI 

FF 

DF 

AF 

57 

B3 

6D 

EF 

CBIO 

20 

00 

08 

3E 

04 

08 

1C 

2A 

B8 


CCB8 

3C 

08 

00 

00 

62 

64 

08 

10 

22 

CE60 

DB 

B7 

FF 

BB 

92 

AA 

BA 

BA 

FC 

CB18 

08 

00 

04 

04 

04 

04 

04 

08 

24 


CCCO 

26 

46 

00 

30 

48 

48 

30 

4A 

A6 

CE68 

FF 

CO 

FF 

63 

AD 

23 

AF 

AF 

4F 

CB20 

10 

00 

00 

08 

04 

22 

22 

22 

82 


CCC8 

44 

3A 

00 

00 

00 

3C 

00 

3C 

F6 

CE70 

FF 

03 

FF 

FO 

F7 

F4 

F6 

E4 

B6 

CB28 

22 

00 

20 

20 

3E 

20 

20 

20 

00 


CCDO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CE78 

D6 

D7 

FF 

OF 

EF 

6F 

2F 

67 

AF 

CB30 

IE 

00 

00 

3E 

02 

02 

02 

04 

66 


CCD8 

00 

00 

00 

00 

00 

00 

00 

00 

00 











CB38 

18 

00 

00 

10 

28 

04 

02 

02 

58 


CCEO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

33 

E7 

F2 

23 

C7 

BO 

88 

80 : 

: AE 

CB40 

00 

00 

08 

3E 

08 

08 

2A 

2A 

AA 


CCE8 

00 

00 

00 

00 

00 

00 

00 

00 

00 











CB48 

08 

00 

00 

3E 

02 

02 

14 

08 

66 


CCFO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CE80 

2B 

EB 

FF 

FF 

FF 

FF 

FF 

FF 

10 

CB50 

04 

00 

00 

1C 

00 

1C 

00 

3C 

78 


CCF8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CE88 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

CB58 

02 

00 

00 

08 

10 

20 

22 

3E 

9A 












CE90 

FF 

FF 

BE 

BF 

BE 

BE 

BE 

BF 

74 

CB60 

02 

00 

00 

02 

02 

14 

08 

14 

36 


SUM: 

DE 

BC 

00 

5C 

EO 

28 

6C 

D8 : 

: 42 

CE98 

80 

FF 

7D 

FD 

7D 

7D 

7D 

FD 

6D 

CB68 

20 

00 

00 

3E 

10 

3E 

10 

10 

CC 












CEAO 

01 

FF 

E8 

EF 

EF 

EO 

EO 

FO 

76 

CB70 

OE 

00 

10 

10 

3E 

12 

14 

10 

A2 


CDOO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CEA8 

FF 

FF 

17 

F7 

F7 

07 

07 

OF 

20 

CB78 

10 

00 

00 

1C 

04 

04 

04 

04 

3C 


CD08 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CEBO 

FF 

FF 

B4 

BF 

80 

F7 

FF 

F5 

DC 












CD 10 

00 

00 

00 

04 

3F 

11 

11 

12 

77 

CEB8 

FF 

FF 

5B 

DF 

IB 

FF 

FB 

53 

AO 

SUM: 

3C 

00 

44 

IE 

E4 

16 

FE 

72 < 

: 08 


CD 18 

OA 

7F 

00 

00 

BE 

22 

24 

28 

B5 

CECO 

FF 

FF 

FF 

D7 

DB 

El 

FB 

F7 

82 












CD20 

28 

A4 

00 

OF 

08 

08 

08 

OF 

02 

CEC8 

FF 

FF 

FF 

B3 

55 

13 

55 

53 

CO 

CB80 

3E 

00 

00 

3E 

02 

3E 

02 

02 

CO 


CD28 

08 

00 

00 

FO 

10 

10 

10 

FO 

18 

CEDO 

FF 

FF 

F5 

EE 

EF 

DE 

D9 

87 

OE 

CB88 

3E 

00 

1C 

00 

3E 

02 

02 

04 

AO 


CD30 

10 

00 

00 

10 

3F 

48 

04 

04 

AF 

CED8 

9C 

FF 

6F 

DF 

3F 

7F 

FF 

FF 

A5 

CB90 

08 

00 

24 

24 

24 

24 

04 

08 

A4 


CD39 

7F 

OE 

00 

10 

3F 

44 

08 

7E 

A6 

CEEO 

01 

FF 

DF 

DA 

D2 

D8 

D2 

DF 

14 

CB98 

10 

00 

00 

08 

28 

28 

2A 

2A 

BC 


CD40 

42 

42 

00 

00 

00 

00 

00 

00 

84 

CEE8 

CO 

FF 

FB 

5B 

8B 

5B 

AB 

FB 

A1 

CBAO 

2C 

00 

00 

20 

20 

22 

24 

28 

DA 


CD48 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CEFO 

03 

FF 

BO 

BF 

80 

BF 

BF 

BF 

2E 

CBA8 

30 

00 

00 

3E 

22 

22 

22 

22 

F6 


CD50 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CEF8 

80 

FF 

OD 

FD 

01 

FD 

C5 

FD 

49 

CBBO 

3E 

00 

00 

3E 

22 

22 

02 

04 

C6 


CD5S 

00 

00 

00 

00 

00 

00 

00 

00 

00 











CBB8 

08 

00 

00 

30 

00 

02 

02 

04 

40 


CD60 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

84 

DC 

40 

86 

F6 

56 

43 

67 ! 

: 1C 

CBCO 

38 

00 

10 

48 

20 

00 

00 

00 

BO 


CD68 

00 

00 

00 

00 

00 

00 

00 

00 

00 











CBC8 

00 

00 

70 

50 

70 

00 

00 

00 

30 


CD70 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CFOO 

01 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FA 

CBDO 

00 

00 

00 

00 

00 

00 

00 

00 

00 


CD78 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CF08 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 

CBD8 

00 

00 

00 

00 

00 

00 

00 

00 

00 












CF10 

FF 

FF 

FF 

81 

BF 

AO 

AO 

AO 

ID 

CBEO 

00 

00 

00 

00 

00 

00 

00 

00 

00 


SUM: 

OB 

73 

00 

23 

93 

D7 

59 

BB : 

: IF 

CF18 

AO 

EO 

07 

05 

05 

05 

05 

FD 

98 

CBE8 

00 

00 

00 

00 

00 

00 

00 

00 

00 












CF20 

81 

FF 

00 

00 

00 

00 

00 

00 

80 

CBFO 

00 

00 

00 

00 

00 

00 

00 

00 

00 


CD80 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

CF28 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CBF8 

00 

00 

00 

00 

00 

00 

00 

00 

00 


CD88 

00 

00 

00 

00 

00 

00 

00 

00 ' 

:00 

CF30 

00 

00 

00 

00 

00 

00 

00 

00 

00 












CD90 

00 

00 

00 

3F 

21 

21 

21 

3F 

: El 

CF38 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

6E 

00 

CO 

CE 

80 

F4 

7C 

8A : 

! 76 


CD98 

21 

00 

22 

22 

2C 

20 

20 

20 i 

: F1 

CF40 

00 

00 

00 

00 

00 

00 

00 

00 

00 












CDAO 

20 

00 

00 

7E 

42 

42 

42 

7E : 

: E2 

CF48 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CCOO 

00 

00 

00 

00 

00 

00 

00 

00 : 

! 00 


CDA8 

42 

00 

00 

7E 

42 

42 

42 

7E ! 

s 04 

CF50 

00 

00 







00 

CC08 

00 

00 

00 

00 

00 

00 

00 

00 : 

! 00 


CDBO 

42 

00 

OE 

15 

15 

24 

44 

04 : 

: E6 











CCIO 

00 

00 

00 

00 

00 

00 

00 

3E : 

! 3E 


CDB8 

04 

00 

7E 

42 

42 

7E 

42 

42 : 

: 08 

SUM: 

20 

DC 

04 

84 

C2 

A3 

A3 

9B 

: 27 


if*h4 SUB. OBJ 


C600 

C3 

IE 

C6 

C3 

2F 

C6 

C3 

5E 

80 


C6A0 

11 

85 

CB 

D9 

06 

18 

D9 

01 

: 32 

C740 

04 

18 

EE 

18 

08 

06 

64 

D9 

: 6D 

C608 

C6 

C3 

3F 

C6 

C3 

73 

C6 

C3 

4D 


C6A8 

18 

00 

ED 

BO 

E5 

EB 

11 

10 

: A6 

C748 

23 

11 

3C 

00 

D9 

OD 

20 

El 

: 57 

C610 

51 

C7 

C3 

OA 

C7 

C3 

58 

C7 

8E 


C6B0 

00 

19 

EB 

El 

D5 

11 

4C 

00 

: 17 

C750 

C9 

AF 

DF 

OD 

32 

F4 

CF 

C9 

: 22 

C618 

C3 

8E 

C7 

C3 

9D 

C7 

CD 

DE 

EA 


C6B8 

19 

D1 

D9 

05 

28 

03 

D9 

18 

: E4 

C758 

21 

9D 

CB 

06 

10 

OE 

10 

11 

: CE 

C620 

C6 

3A 

F2 

CF 

77 

11 

70 

17 

DO 


C6C0 

E6 

D9 

D3 

E3 

11 

28 

D4 

21 

: A3 

C760 

18 

00 

3A 

F3 

CF 

77 

23 

05 

: B3 

C628 

19 

3A 

F3 

CF 

77 

18 

44 

CD 

B5 


C6C8 

C5 

C7 

01 

CO 

03 

ED 

BO 

11 

: FE 

C768 

20 

F8 

OD 

28 

05 

19 

06 

10 

: 81 

C630 

DE 

C6 

7E 

32 

F2 

CF 

11 

70 

96 


C6D0 

28 

DC 

21 

85 

CB 

01 

CO 

03 

: 39 

C770 

18 

FO 

21 

DD 

C7 

06 

10 

OE 

: FI 

C638 

17 

19 

7E 

32 

F3 

CF 

C9 

DF 

4A 


C6D8 

ED 

BO 

D3 

El 

FB 

C9 

3A 

FI 

: 40 

C778 

10 

11 

18 

00 

AF 

77 

23 

3C 

: BE 

C640 

2D 

3E 

06 

32 

00 

10 

21 

EO 

B4 


C6E0 

CF 

47 

11 

64 

00 

21 

9C 

CF 

: 17 











C648 

2E 

22 

14 

10 

21 

00 

DO 

22 

87 


C6E8 

19 

10 

FD 

16 

00 

3A 

FO 

CF 

: 35 

SUM: 

D4 

C7 

E2 

59 

43 

6D 

A3 

OE 

: 37 

C650 

16 

10 

21 

00 

00 

22 

18 

10 

91 


C6F0 

3D 

5F 

19 

C9 

3A 

F6 

CF 

47 

: C4 











C658 

11 

00 

DO 

DF 

31 

C9 

DF 

2D 

C6 


C6F8 

11 

64 

00 

21 

9C 

CF 

19 

10 

: 2A 

C780 

05 

20 

FA 

OD 

28 

05 

19 

06 

s 78 

C660 

DF 

2F 

3A 

00 

10 

FE 

06 

20 

7C 












C788 

10 

18 

F2 

C3 

C2 

C6 

11 

EO 

: 56 

C668 

06 

2A 

16 

10 

DF 

30 

C9 

3E 

6C 


SUM: 

FB 

33 

F5 

84 

A8 

BC 

40 

5C 

: A7 

C790 

2E 

21 

00 

DO 

AF 

77 

23 

IB 

: 83 

C670 

3D 

DD 

E9 

CD 

F4 

C6 

F3 

11 

8E 












C798 

7A 

B3 

20 

F8 

C9 

62 

6B 

7E 

: 59 

C678 

C5 

C7 

D9 

06 

18 

D9 

01 

18 

75 


C700 

FD 

16 

00 

3A 

F5 

CF 

3D 

5F 

: AD 

C7A0 

23 

CD 

A7 

C7 

10 

F9 

C9 

OE 

: 3E 












C708 

19 

C9 

F3 

3E 

02 

D3 

E5 

11 

: DE 

C7A8 

00 

57 

CD 

BD 

C7 

7A 

D3 

FF 

: F4 

SUM: 

DA 

F6 

8D 

5C 

76 

52 

E7 

BF : 

: 27 


C710 

00 

20 

21 

00 

DO 

3E 

00 

3E 

: 8D 

C7B0 

3E 

80 

D3 

FE 

OE 

01 

CD 

BD 

: 28 












C718 

00 

77 

23 

IB 

7A 

B3 

20 

F7 

: F9 

C7B8 

C7 

AF 

D3 

FE 

C9 

DB 

FE 

E6 

: CF 

C680 

00 

ED 

BO 

E5 

EB 

11 

10 

00 

: 8E 


C720 

D3 

E6 

D9 

21 

3C 

00 

11 

3C 

: 3C 

C7C0 

OD 

B9 

C8 

18 

F8 

00 

00 

00 

: 9E 

C688 

19 

EB 

El 

D5 

11 

4C 

00 

19 

: 30 


C728 

00 

D9 

21 

6F 

E7 

06 

64 

OE 

: C8 











C690 

D1 

D9 

05 

28 

03 

D9 

18 

E6 i 

: B1 


C730 

3C 

23 

7E 

CB 

5F 

D9 

28 

04 

: OC 

SUM: 

F2 

18 

EE 

30 

08 

F3 

IF 

2F 

: 71 

C698 

D9 

CD 

F4 

C6 

11 

70 

17 

19 : 

: 11 


C738 

3E 

01 

DF 

48 

13 

D9 

05 

28 

: 7F 












190 OhlMZ 1986.1. 






































fcafciaanxtM'-*—<7>-Bum 

: ivd —? vV 


Lfco SBp d b 

\\.<T>-?U 7*7 A ASA, 

-fu ?'7A£*gtf-LJ L <t -5o 


^fc0$?^izignrc 

TliWeAA L.El* ? 3 <^:jt<A>EltrthAt 
14 4©;7 y-X'li, Afflict “toi/^” t 
<■' 53^$PJ***3i.'‘Ci' i t. A A-Aft-7 4 
t- 7 u-A J f>y y 7 
tfl*t .4 © C * A* -ft L A C & r fc I. ■' t S 
o-Ctot>ft4:£fci.'4t'lJ:7o ®*'C^ 

^3> (St*g) ffl0it^-®IEHt', *A'K 
©-?/i/-yft:(j:|j t'®i' t ©*- t l ft J: -tf A, 
CAD 11 - 7 B&In t, (>00*5i: k E £ b 
!) it. 

3-0IpJM- 4 •‘SBiS'fbOAn y'7 Aj 
r Itffl07’n/7Ajtt, -tO’VA'Aft© 
Ant Ltfiti'S t©-f-f* 5 ', ?C,i: 
InLhfcStfii: f.tf, 7'-^^-7tUi 
«©«•**, *j6±*Si'ttttfltl:0^5 
3 . w — £/ a V A ^ 7 7 A 5 -E-l? t A 4 t Z 7? 
**t Lft* -tt A« 1**1, ZZA>ii 5 fcC& 
4 t «-Sf A&C iotHJ'i, f$ 
^©iieAGfciJTA tii'; tfL X 7< 
gli, <.'**<: #&;A-#f*et'ii 4 *-A©A' 
t-Sx-it* 5 ', zzt'Cyfat., cri#c?)X 
A£»tf$l, H©7A/^CADi:.A < 
Ti’A’A'ttfttfC tiA.fi' i 1% 

uitftit, ^®© r SBD D n{tro 
/7Aj 4rttS«-lt‘CliU't#i‘Ci’S 
©-fl”* 5 .„ 

3E55Jb(P-7a?^ 

y X h 1 t\ -?/i/A CAD r L A t 
©irSna-ftL, %m- vft/fti&ftz-zr 
z © y x t ii 8 tJ-^-cico 

t'Aj]frgffl/B/7i “MAIN-JOB” 


(MAIN-JOB It, y X t 3©atii^ IT < 
A'S i') MERGELTtrS5J:5«:7jro-C 
I'it. lA** s o-C, Z©y X t 4-A* l 

fSf'-t-7' (7 7 T 7i/ £ © 
me, A4-0(14) L, “MAIN-JOB”4- n 
— KLt*'t, 4 ©7 7 -f xw 4-MERGE© 
P v> Ft*Wat t, a5 n t Affc©7°n/5 
AiJ-fts ** s 0 £ to Z©7 7t7i/:g|J, 
Mtr t *' * I- jfc -tt/i**, 9H^-© “JOB 
SELECT” t^-g-S-e-niJT" h 
V'J 3 7” t&y it. 

§ T 4 ©m^A'/Aii 8 B4§-©A*7°n 7" 

x a t i5]ft-rt©-r\ ff l < tobotzi&m 

(Db-im Lilxio fr L i-ffitgliM* 
ffliJCPLO. (gRpWtt'mi), PSA. (g|5Ag, 
WM), rT -fc t © 3 oa ? Jnfco A'/j'it'C'i' 
©rfew-rto :nwiuj]ffl©7"D/ 
x a t i5]#ir't©-r', 1^4-ffi < mz t> i> *> 
b/L%i)it o ft^L/zi'^SOArtliZ 
©SBn^ffl7°DA7 A-C't 8 B4§-©Atjffl7° 
n7"7 A-T't, 05l'liK#f-^77J 

jt, »^iia5£ciAi-ia* ? Ayj§n 
A f> ^ — y 71 /4- r PSA. j ©tic t -o *C i' 
&*g£-t4t, B@Ti:SIH£0*^ 
i J -T^to tZ-f\ a»LA.*i'H©ISHC 

t&- y 7 i/El 4 -#ift$-a-, &±, 7 &t©hi 

Clt£l*t (z©$£0«, 4>lJ£*Ct 
ottot'T(L'S(').1-6 t, 

©77/f 7l/* ? S^$ fl, 77 /f 7l/^|£A© A 
ito 7 7 4 7ngli, AAS 
ftA*^©iiC'E>T r P-j * ? o < J: 7 c/jro 
-Ci'ito 77T7V/^4-Ayj-t 4 tStS* f 
(tp^y, Llfa><T4t t“— it 7 7 T 71/ 1 : 
3BSS- ft. A* L A0* ? iKI H i t„ 4 ft-T 


^©m©A*#t>C4; 9 i 
T (El 1 —2)o ^©'WiiiUJPLO. 4- 
»^L, t 0#, CALfc 

r-i’7 7'(»Z 
4-AAj Lit. SI5iSi©r"—77-17t/(i'£> 
-f r P-j * ? slCoi,'-C(.'^-f©'C’, r P-j'7 
& ©7 7^71/^ t U y i-fo 7 7 /f 71 /^ 4 - 
A*t 4 t, O—Kc^i'-Cftsc^ioi y , 
tt^LAfilt»c^p?ft(0 3), (A 
0A)]ffttiHt, BftFtilJft'CieA 
$ftA0©*ffl>©^ (3 ;Axcg:t 

A*0t©-8^#, 9^^-#0B) «, (g|5 
p a 0 3BP#©m¥) x (pfc;tbLB#c^$ 
ftT i' 4-fn^) tioTl'il'Ct', 3 A 
jccje- lAu'^-r&ftiJf, gPn a p4-i¥t;ai 
tic, (F8A-) 4-1 

Tfe < li 7 J: 7 (El4~5)„ 


H1 SBb q pMSS 




3 D7;U7 L CAD< 7> i5i 







































m3 wasi£-j£ 


ST, <«5 

H$r, 4AtiT'4 <, ji?x. 

T-/KO 4 Z tC!) 

ftlJT, **4 £®3BS.g 
li t i'ofcf6n#i ! t <'&(,'»**.£ t Z 
bX L a 5. 

3 o a cottar 4 -t >f jti, ElcOttr^ 

WSI50A* f * 4 ift-g-, £ £ * - y 

^-Tfch, ^T©«ft*Ii:®t5t, 

i fciWBft-r attHB-r-r. 

zn**3?ffsft4 t, *tssftA8i5#$ri& 
i'-cr"-*a' ; y-h sft, HbtfJI&SftA 

2'>u±<D{m%m 

(*4 £) *--£«:»£ Ut t^T* ? HiJI& 

^co^iA 

r t'f-Mj fcuFtf, «SftAHiJI&l85 
«*4r»36 L f < AS i*. z 

r DELj t:Jt^4tffi 

^cobo^-ms-rs itotrffifdcffiis 
©■fu^'-a a ?*•» 
n±* f z coM-tr o x y Acomm-c't 


fi\ Z 0)7°o Xy A 7 r 4 MA 7 7 A I'stx 
<OZrt<, C'/bi'^AX^ttltSni tin 
Si 7 i:ffltl A 5 tSofc tcft. 

f" -7 7 4 -f **■o 4 * s 4 A 7 4’ o 1 1 
St**, 0 * ISMS 3 A ?*- * U ££t 4 
^gt*’i'^>i’^>*5 t.e.i*it. t:^g 
n-ioxyEb{teiT.4.T <Mi*. 

£(DflMD^?7A7P<<Jb 

TV . 51 * 5 4 7° o 7" 7 A 7 7 A A'fc 
IXtL A l A**, 3 DtfWj 
7°y 7:*(:{fc;ftt 4 t*‘, ?"y7'i-y?0\ 
fflgft:£-fc-7"T4 t**, AA^-^-CO 
i(>i:SoT«tLTi'ii' iOiloti’ 
At» L*'L, ZftVtA, i*Tftb$£<, 
fl$bfS¥4 t»© 0 iSttSJt'fcii'i 1 

tJgft'Ato 

y x h 2 b, £A.& t t , <£>ctt-3i'# y, 

r"—73cfit i' 7 ^t:*‘Z-o(t AttS7 
7 A n'XXo ZftiA, XlturbofflT'T* 5 ', 

aoSSP^iriot''-*©? y t y gin 

A: t z 1i* 5 P. 

i***tf^oA:(>0t', ##AT“c t *xT 
tSlf Li LA 0 fit 

2 A % 'sXk&bXb < <ii'£ i'o A t Z 
bX L A i *‘o 

7-a-£z/*;ui 

i-ii-iiyr'-iy/, zziAtV^i 
ft*A:i* t - 5. $ T, £ ? 4 - 4 z t ^ f> ! 
ST, '*y 3 7?ftl£c0ii>’fc*>AtA, *t" 

- (r— a) tt'^xcE^snti'i 
t„ #^sw4K#;AtJiVi+*» t 

y 3 7 (Afit3? i: tVt x coWft t L T ipA. 

T'i' U? t'+o AWfrtfail A y, #*• 

l C'-fy a 7* ? ffi6ns«4-fei»l, r ^'°y 

3 7iA,r'-/,ctt'i-7Ti'S(i?* s i i 
Afj 11* 5 jt£* ? * y it to *£g(: Ki 
Ti'4MStlA.@.i.'At* ! \ Z 5IoAt 

- tvt x^l— xuitA-T'fe y, 

cAcOitnAx t LT3ffi«Sft**faA tA 0 ^ 
IA y , bo & L A t" 7° 3 7 *»gfc L 

I'OT'IA&l't'l A ? ** 0 

t Sn-Ti'S-friH 

- ^ &y 4- s * %&■o t i-'s <n x ( a & i-' -r i 

£ 7 *‘o ^H^SSC. t c. t ii, h S ®B^T' 
^fi:A-titnito iiiROStHli 
«5tAliribn:nfiSt-A tKi 
6Ztt>X$ ZXli 7o itzzztzlSAi-l 






in 5 v y y k • a-zhj* 


A.’3Dx>;i/-f- CAD IA, iStf t LTCDliJfflb* 

StAtt'to 4-OtitlA, 

tt*tlti'U!)i'it, 

^ns z t * ? £ < 

LA?**f», ^c;©g»iA()o tt£ALT 
i* < *>fc Lni-tA, tlio t L A: B>, t 

— At xcyjti'IA4 - < ^CoT L A 7 

®*'b LftiW. 

irrWJ-r, At.CO t- a 3 -5AIM L A lb* 
^lA-:t«yit. fit*', '«7-(*), 
X —A, t A, / y -7 -7'(fia) 

T-ai:M L ArA'^A'-o A t it i T i' i 
t. LUi r yjcDt'-Aj *s, 
co A ? Axt— 'yfiniA, g‘L4 , S?<* 
Bf L C't'—AT*'t* f - ffinco#-^^, —fe 
HTSti PH^liycSi' 

T' L £ 7 O 

r S©y-Aj li, g 0, ^ LTtfl t#* 

AtCO:f§AtO b OXt)iM£f> 

y * f Ai'C 0 T't* f , f^ibb f |i co -?^—x 

— AT'lii'AA'g i t Ao *‘Af r bflcot' 

-Aj *>', ^S^Sonb A 5 ttSBfg^, 

gib %m agwr*niA, mi-a a 
t-Si'it* 5 ', ftb,A?r#*Ay, K*U4‘ 
tlA, PAbcot.®i.'At„ 
igXclA, K’^^tiSnti’ib© 
t:IAi'-bi'7>4-W** s * ,1 bAT'< SCOT”, 
zco 3 ^-*x 2 '3-IIT'IA, Wi: imftX 
S4-C'*'b Lni-tAo #C#m®fFffi4 
t'4*‘4*‘oU(: < i' bco-fl A ?o i^*' 
ft ISoT t?»J L A z t * 5 ', K g <: ft S Z 
t AfoT^SO-rtA'ibo L *■ L, *Hijt: 
T'*' ; tt4, ? Z t <" <b i'(A 

T'& tfift. 

^MT't* s , t"7't x 1 1 ' 5 S*IA, b 

usy (itbl') t ^ Snl^bt S ness * ! \ )Sffl 
^fibS ft A'3'7 y busi-nessT'T" S t C' A 
to —ft*IAtt L l'^* ? ^i't S 
ftT c - A t *'•, ZCO “tt” ti'^^C^IA, 

A tt^'tl^-g-ftSoTC' A to t«, -t* 
frmMl A t**«b, r 'C' 4 tr < tj* S C'iA 
r t < tt'j t 4 y A to 11 4 t, tEA <0 
L A Htj tIA, f 5 bJ^i'lS-T'IA 
4 S £ 5 T'to ffirCOt, t''7't xtfeL A 
^COpfrH* s #Sl#(ALt' Z -9 T i' 4 A 7 t:,g, A 
A t* f r ltj 1 1 ' o Ac5 : &i¥-o tzMMli, 
ZHA:t ^l.iiAAZ t U*4C0T*L 
A 7 *‘ ? 


iP2 Oh! MZ 1986.1. 





















A-h-^-A 

fib a t m *o tt * t .@o ra*#©** 

< t <" 4 C £ < T 4 

St^i'tSi’ito t' 1/M Tii^? 
fx4©tt, 4 5 ifcman3MSoi:<.’4® 
fl i ?o ffeAi 0 gait,fci\ jtilRua 
Al\ %biXtZ < &<.'* t A!*>0x"1/M > 

W- h $-tfti> <-4A.&*H4®t:» 

*‘/l- rs **. 

i A, J: 0 iMSfctfjfc {> ©4-t»i f J: 
D*1JS(W4- fe0$r£*{liLTi.' <, 4A& 
flIRI b ftt'jR-C L <t ? o ::i:tt, «tt+ 
4 «| b, 5 ft 4fflic b m&tftb *> i to 
r"-f t >5? 4 0j#E304 , t-fiiIo'tt 4 A 
*H'4*>t ItU -ti-Ao L**L, —^-Tli 
ft'fi'fr r *K0lS:ff-£mtf>4 4 t jt, 

t c.i<t 5 tt4#ifc*D it. tot 
i.'r'-tM 7 t li, r r"-fM > l A b W t 0 
iTT rffliOtt-Cf 

tti'tffci’jfci 

4j li'7 0l;t, i ^©S/SUDiSS^fti 
5flJ:C,A.-r'i'i-r**ii, t t>£>Ar"-'F'f 7 
snfc4©****cttftii«ci’-fL i 5. 
1**1 £ 7 l Ai**7, *4i'lif^A? 
fc-f 4-l>* { tmi'S 4*>fc Itii-ttA,, 
5T, ISlifsj^ ^ i l 

A* f , *&ti'7 4 t *(:*** It 

flt©*fttt* L <, JtttKfttt < f 4 c 


* x r- At; fflitlStt 4 0 * f fS—■ff il'o 
fclSt* *» *-f* T , 

■It^UStt/ ^^AS&BSSrffrijAi' t 
JBi'i-fo 

3??*-r3Et>n4**t isis 

£0fifit LT, ®***4 *\ fit*±tf* ? 

* 4 fr&*’ £ # i X b- X& fc So X l' £ t » 

(*li, r ®j, ;A£li±£f*A 

±tf4jilffc-Tr r £j fc£fttiA4 Cotti 
AoAO LTI.'40-C'l‘A*.)« 

'*7 3 y tULTJ&i 4 4 t tt, gt.0 
/b/ 7 5 v^0JKA'tJBi'i t. Ki: 
it, SB, fBJ4'J-ti-4*‘g lift*, gc,« 
f,«^LS* { <b 0 it. 
#cf8f Li'Oli, f5J4 > S-a-4**r\ #i; 
Pp1bn4 0ii, £ 0li4A*ifi]4 7 t:fsj£P. 
■5*-riJ:5o *4i'li, ?0A@iB.S 
*'t> Ldi -ti-A. t>7, 4 4*t'#i4fc, 
ic.©§l#i:A4 0i>(. UiitfAta. 
AtO/D/7 5 0 i 

-a-A.**, t'4**At0-htl-&-l'{>. £07° 

* { IT& i-f. 

_ fcftPC _ 

a*S 0 »Slit, 

ttjAl'AAi©©, ®lit;X4li'*> *). 
f -v &''*v 3 >§■£ trai 4 
*AA*>< E^-of < n4l%^0^?A 
U'ffi 4 f-Tit A-or-t. 


0-fr@I r *4 t S(i^tt0J: 5 U, Ut 
*4 t * liAA0iit4-j 
ni^A„ £tut, 

t'7£T, *^L*09> < 0* ? p.^nti'4 
i7l-Si.il/;. l*‘L, ^tj - lt.±04 
l li-T'li 4li:Tl U <, i¥§ai±t>H# 
t> B0#n4ctr', 4-^0 l fc b „ 

•C't), *fcWtfe GO#*«r**•**, 

J: Ofit'IM!)0Si^fS4 4 114 L 
it. t'5 tfil'K* 0**t 7 4r?i'i l 
A. 




3 D-7 7l'7 i CAD< 7> iPJ 















2010 ’ 

2020 ’ 

2030 ON F2 GOTO 9000,9500,2600,2070.2040.8000,2050 
8000 ’- f -ttl'l - 

8010 BEEP: BEEP: CONSOLE 23,2s CFLASH1: PR I NT " i/a 9*3 7'7* 3 7*ta7 J V-fi/a/ Kx-f t3":CFLAS 
H0sBO=0 

8020 GOSUB 5000:BEEP:CLS 

8030 CLS: X1=X: Y1=Y: PRINT":;?!/ X1,Y1 = ";X,Y, : PR I NT “ i/a 7 t 7 E/r-ftS": BO=l 

8040 GOSUB 5000:BEEP:CLS 

8050 X2=X:Y2=Y:PRINT"3a7x3X2,Y2=”;X, Y 

8060 IF X2-X1<0 THEN SWAP XI, X2 

8070 IF Y2—Y1<0 THEN SWAP Y1,Y2 

8075 CFLASH1: PR I NT " 3xW 7" 7“ 3 3a7*a Va') +a7“ ; : CFLASH0 
8080 FOR J=0 TO DN-1 
8090 D*=DT*(J> 

8100 C1=ASC(MID*(D*, 1,1))-S<H40:C2=VAL(MID*(D*,2,3)):C3=VAL(MID*(D*,6,3)):C4=VAL< 
MID*(D*,10,3)>:C5=VAL(MID*(D*,14,3)):CL*=MID*(D*,19,1):C=VAL(CL*>:IF CL*="" OR C 
>7 THEN C=7 

8105 ON Cl GOTO 8110,B110,8110,8140,8150,8150,8110 
8110 IF C2>C4 THEN SWAP C2,C4 
8120 IF C3>C5 THEN SWAP C3,C5 

8130 IF <Ci=l OR Cl=2 OR Cl=3 OR Cl=7> AND C2>X1 AND C4<X2 AND C3>Y1 AND C5<Y2 T 
HEN FOR I=J TO DN-1:DT*(I)=DT*<1+1):NEXTI:HIKU=HIKU+1 

8140 IF Cl=4 AND C2>X1 AND C2<X2 AND C3>Y1 AND C3<Y2 AND 4*C4<X2-X1 THEN FOR I=J 
TO DN-1:DT*(I)=DT*(1+1):NEXTI:HIKU=HIKU+1 
8150 IF (Cl=5 OR Cl=6) AND C2>X1 AND C2<X2 AND C3>Y1 AND C3<Y2 THEN FOR I=J TO D 
N-l:DT* <I> =DT* <1 + 1):NEXTI:HIKU=HIKU+1 
8160 NEXTJ 
8170 CLS 

8180 DN=DN-HIKU:HIKU=0:LI=0:BO=0:EBF=0 

8190 CONSOLE:GOSUB5610:GOSUB "I" : GOSUB5600:GOTO 230 

9000 '7*t7 

9010 BEEP: BEEP: C0NS0LE23, 2: F'R I NT " 7* fc3 3535 <+VT <": BO=0 

9020 GOSUB 5000:X1=X:Y1=Y:B0=1:GOSUB 5000:BO=0 

9030 IF X1>X THEN SWAF XI, X 

9040 IF Y1>Y THEN SWAP Y1,Y 

9050 GOSUB 3000:CONSOLE:CLS 

9060 FILES"1:":CONSOLE0,25,40,40:CLS 

9070 INPUT "3535 7" t3 J 77-01/ M =? 4 Lx79" 9 T" ; PFI * 

9075 CFLASH 1: PR I NT " 7” fc3 3535 3a ') *a7" ; : CFLASH0 
9080 OPEN"I",#1,"1:"+PFI* 

9090 INPUT#1,X2,Y2,X3,Y3 

9100 KX=(X-X1)/(X3-X2):KY=(Y-Yl)/(Y3-Y2) 

9110 INPUT#1,LN:Z=0:ZS=0:EN=DN+LN 
9120 FOR I=DN TO EN 

9130 LINPUT#1,DT*:DT*(I)=DT* D*=DT*(I> 

9140 KMZS*=MID*(D*,23,3>:KMZS=VAL(KMZS*):IF ZS>KMZS THEN ZS=KMZS 
9150 KMZ*=MID*(D*,20,3>:IF VAL(KMZ*>=0 THEN KMZ=1 ELSE KMZ=VAL(KMZ*> 

9160 IF ZCKMZ THEN Z=KMZ 
9170 NEXTI:CLOSE 

9180 HSOK=VAL(HSOK*):IF VAL(HOK*>=0 THEN HOK=l ELSE HOK=VAL(HOK*) 

9190 IK— (HOK-HSOK)/<Z-ZS) 

9200 FOR I=DN TO EN:D*=DT*(I):E*=MID*(D*,1,1) 

9210 C2=VAL(MID*(D*,2,3)):C3=VAL(MID*<D*,6,3>>:C4=VAL(MID*(D*,10,3)):C5=VAL(MID* 
<D*,14,3)):CL*=MID*(D*,19,1):C=VAL(CL*>:IF CL*="" OR 07 OR C<1 THEN C=7 
9220 KMZS*=MID*(D*,23.3>:KMZS=VAL(KMZS*) 

9230 KMZ*=MID*(D*,20,3>:IF VAL(KMZ*>=0 THEN KMZ=1 ELSE KMZ=VAL(KMZ*) 

9240 HSK=HSOK+KMZS*ZK:HK=HSOK+KMZ*ZK:HK*=MID*(STR* <HK)+" ",2,3):HSK*=MID*(STR* 

(HSK)+" " , 2,3) 

9250 C2=INT(C2*KX+X1): C3=INT(C3*KY+Y1> 

9260 IF E*="A" OR E*="B" OR E*="C" OR E*="G" OR E*="W" THEN C4=INT(C4*KX+X1>:C5= 
INT(C5*KY+Y1> 

9265 IF E*="D" THEN C4=INT(C4*KY> 

9268 IF E*="A" THEN DT*(I)=E*+MID*(STR*<C2)+" ",2,3)+","+MID*(STR*(C3)+" ",2 

,3 > +","+MID* < STR*(C4)+" ",2,3)+","+MID*(STR*<C5)+” ",2,3)+ "."+MID4(D*,18,8) 
:GOTO9280 

9270 DT*(I)=E*+MID*(STR*(C2)+" ", 2,3)+","+MID*(STR*(C3)+" ",2,3)+","+MID*(ST 

R*(C4)+" ",2,3)+“, "+MID*(STR*(C5>+" ",2,3)+ ","+STR*(C> +HK*+HSK* 

9280 NEXTI:PALET:CONSOLE:CLOSE:CLS 

9290 GOTO 2290 

9500 ’ 7* fc'3 f-7Q7- 

9510 BEEP: BEEP: LOCATE0,23: F’R I NT "7' fc3 ^707 -O-Vfi " : BO=0: LOCATE20. 23: PRINT"!-’?!'" : 
9520 GOSUB 5000:X1=X:Y1=Y:B0=1:GOSUB 5000:60=0 
9530 IF X1>X THEN SWAP XI,X 
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9540 IF VI>Y THEN SWAP Y1,Y 
9550 GOSUB 3000:CLS 

9560 FILES"1:":CONSOLE0,25,40,40:CLS 

9570 INPUT" (-707 7" J 77T* Z'! => P-“;PFI*:PFI*="P-"+PFI* 

9575 CFLASH1: PRINT"7" h707?-37" ; : CFLASH0 
9580 0PEN"0",#1,"1:"+PFI* 

9590 PRINT#1,XI,Y1,X,Y 

9600 PRINT#1,DN 

9610 FOR 1=0 TO DN 

9620 D*=DT*(I>:E*=MID*(D*,1, 1) 

9630 C2=VAL(MID*(D*,2,3>):C3=VAL(MID*(D*,6,3)):C4=VAL(MID*<D*,10,3)>:C5=VAL(MID* 
(D*,14,3)):CL*=MID*(D»,19,1):C=VAL(CL*>:IF CL*="" OR 07 THEN C=7 
9640 KMZ*=MID*(D*,20,3) 

9650 KMZS*=MID*(D*,23,3) 

9660 C2=C2-X1:C3=C3-Y1 

9670 IF E*="A" OR E*="B" OR E*="C" OR E*="6" OR E*="W" THEN C4=C4-X1:C5=C5-Y1 
9680 DT*(I)=E*+RIGHT*(" "+STR*(C2>,3)+","+RIGHT*(" "+STR*(C3),3)+”,"+RIGHT*( 
" "+STR*(C4),3)+","+RIGHT*(" "+STR*(C5>,3)+","+STR*(C>+RI6HT*(" "+KMZ*,3)+ 

KMZS* 

9685 IF E*="A" THEN DT*(I)=E*+MID*(STR*<C2)+" ",2,3)+","+MID*(STR*(C3> + " ",2 
,3)+","+MID*(STR*(C4)+" ",2,3)+","+MID*(STR* (C5) +“ ",2,3)+ ","+MID*(D*,18,8) 
9690 PRINT#1,DT*(I) 

9700 NEXTI:IF GL=1 THEN GL=0:GOSUB6000 

9710 CLOSE:PALET:CONSOLE:GOSUB5610:CLS0:GOSUB5600:DN=0:GOTO 100 
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10 •— 7-ritM n 'ttrj m —RS-232C-FOR XI TURBO 

14 CLOSE 

15 ’ON ERROR GOTO40000 

16 ON KEY QOSUB30000,30000,50000,50000,30000,50000,30000,30000,30000 

1? CONSOLE0,25: CLS: LOCATE0,24: PR I NT" F l-MENU^2-MENU^5-MENU*4-MEMJ*5-NEMJ^6-MEMJ*7-t1ENU*8-MEMJ^9-MEMJ* 10CONT 

20 GOSUB3010: CONSOLE 5,15,20,40:C0L0R2: KM0DE1 

30 RS-232C 308*"- 

40 PRINT:C0L0R4 

100 PRINT-1: DATA IN -^fs" 

120 PRINP2:DATA OIT-&tir 

128 PR I NT-3: MENU - b £ £ " 

129 PR I NT: COLOR 1 

130 

140 IF YN-1 THEN QOTO"DLOAD" 

150 IF YN-2 THEN GOTO"DSFWE" 

165 IF YN-3 THEN INIT:CHAIN*JOB SELECT- 

170 QOTO10 

2190 LABEL-DLQAD" 

2200 GOSUB3010: CONSOLE: PRINT" DATA L0AD-RS232C **81/^ < PRINT- ^Tr-9£^/£b*T>KNO=0 YES-1)-; 

: IhfUT MA 
2210 QOSUB3000 

2220 OPEN-I", 81, "COM: 1N83XNLLJD" 

2225 ’FOR 1=0 TO 24:LINPUT 81,TA$<I>:PA$<I)=HEXCFR$<TA$<I)):NEXTI 
2230 LINPUTm,LN$:LN=YPL(LN$):IF MA*1 THEN EN-LN^DN:ST-DN ELSE ST=0 EN=LN 
2235 FOR I=ST TO EN 
2240 LIhPUT81,DT$ 

2245 PRINTI ,DT$ 

2247 DT$<I)=DT$ 

2250 NEXTI 
2252 CLS: CLOSE 
2255 DN-EN 
2260 QOTO10 
2290 LABEL-DSAVE- 

2300 GOSUB3010: INPUT "DATA 0UT-RS232C *?Bglyr < rtf£^-;YN 
2320 OPEN-O-,81,"COM:1N83XNLLJD" 

2325 ’FOR 1=0 TO 24:PRINT81,TA$<I>:NEXTI 
2330 PRINT81,DN:F0R 1=0 TO DN 
2340 DT$=DT$(I):PRINTB1,DT$ 

2345 PRINTI,DT$ 

2350 NEXT I: CLS: CLOSE 

2360 INPUT"T7?rV fl Vft 72fc(YES*l N0=2)-;YS: IF YS-1 THEN DN=0 
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2578 G0T018 

5008 FOR 1-0 TO 7:PFLETI,I:NEXT:RETURN 
5010 FOR 1=0 TO ?:PflLETI,0:NEXT:RETlJRN 
50000 CHAIN'JOB-SELECT" 

40000 ’- 

40005 INIT:F0R 1-7 TO 2 STEP-1:C0L0R7,1:NEXTI:CFLASH1 

40010 IF ERR-75 THEN PRINT" l/iVO TT -f7C7*:PLfft' "GFEDC”:CFLASH0:CLS:COLOR,0:RESLME20 

40020 IF ERR-55 THEN PRINT" 7Wt IT 7'J7C -VPLflY ’GFEDC“:CFLftSH0:CL$:COLOR,0:RESU1E20 

41000 PRINT" 19- ri>jCT-":PLPlY "GFEDC”:CFLASH0:CLS:COLOR,0:RESLHE20 
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#i:iT«#IT®A'm:4So 14-1^7 3 
ym^-T'NEC© h 77 , 4 i # G <*©tt Life. 

< %i*h 7o 

0D©ff < #IT t' 7 4 S ©f L i 7 4' ? 

K.T lioHto-c, ^yny®7^!)4 ! 
i> «#64K'M h&tMlXl i o4#-rii, 
✓■?y ay©)4S[Jie'ltglt LTii^Li'# 
i#fro L*'Ltt©#t:«64K^'T HUTfr 
•ftj'ftVb S5 r t-t®^#'7 — y°o© 
X^x-'T xy t LT#at54'(i«, 

[R]obot b'”73>l#(l4'f, KH£* ? 'i£ < 4 
S 4)'4^ ? 

K.T h t>5/if cnb’86#©ffl^fffr 0 
tfi:77 5 ayfrii, b 5rSiWL 

-CS^'S 0 r 7°7 wxHHfiRj frii4 
8y37i:DtT; b 4"7 4i.'-r®6#S 0 
biEt'©-r'(i4i.'*>o r ^B#n#^ M&Mtt 
4#-CX3"TP'o •&© t § cecfe 
T r ^->° y 3 y (il&Mfe/j'j 11 i 5 A t> 
4^04-o 

l]HARP-r86#i:^6S S i tt ? 
S®'C'fi4<.'*>4o 

ITIele-Communication ij^ t ©Ti/E I: frill *4 i 
#*• ? 

K.T 0 t m^lKATT'b 0 x. (3Tfc *> 4 *•, ’86 
#li*® t L-rjiA.t'i' < 4 t#ib*-S# 
i: 4 S„ frfr iztUi. tV* x«-ff©ISt', 
3yii#tt^igpg5r3Ex. s® 

C t * t 2 #(i4)'*> b ^ 7„ 

HQNIX li-tfat S0-T L i 7 *> ? 

K.T li*-C4i'EL±, ^Pli 4tSlT t i 
7frl X 7o S#iifA©»l4"* f 0 
LAN-rmtLt-ayE’i-yPp'l (7oX b, 
4737 , ^’y 3 y) fr, 4tjifiJffl'C'|i S 
y 7 b ?f(l3S4i*0ilM t LTfbnJO 

"CTi l£i)'h 7 16] C osrb'tayf 

#©MS-D0Stli?S* { m7o 
0AN(#iP«fi£ii#ffl) o •CWt't*‘.fi4* 
4> t bM#,*SA.-rt*‘? 

K.T {, 1b;SA.„ r M4 S/d b 371 / 

(iidtlS:) PpI© 3 y t° a -yr t> iidfr 

is S 4 7 b 7 — y j f, -SKfi‘P614 

if, iib^y Cj. —yP p^©j£>.'# y b t — 
y /'°y 3yii^gii tt,s 

A.&i ns/oS 7 L, s/'°y 3 y 

t tx b %"7 4<"VANbPC-VAN (NEC) 


4 £(.' < oi'iijT ITi'S. ’85#li VAN 
***nn:4ebnai-#fr. 4frL r -r^sj 
©t r (£7j ©«)t7o mM-r'©#aiit 
A t ^t©Ifio 

Hp©7"-Aiicn*‘0 b ifr^i> it*-? 
K.T b ^^/ifto jS— 9’f^'O — 7°n|£ 
AjK**5lt', ’85#li’84#ib 4 ^®8oa^* f 
7fr**, ’86#b ’85#it 5 fl| 1^0120 
TJg-IT SWfr.A’fro Cbt m, % n#©2tlb^ 
lfi|4*51^-Ci'fc0T', ^ysy©**! 

L tt&M L X u < T 7 fro oj 0^14 

< 4 S„ 

01 y !) - XTT c 4x*> C, £ 7 %Kt S ©t' 
t i 7 *■ ? 

K.T © ffj c 4-tfX l * ? m?g 4 © i: c nfr 
Dkyb Lfr*’5flS, B fl L T 7o tttb©^? 
b J S I t l4 { b, *©^f y a y IT k''x"t 
#t y t''©tiS^ , * i '^^[p] # ©/# 3 y Ze 
fis*5 fc 1*581 fcjg[C*S. (Ti'ITt^T 
3 y k°a. —y44* 
i:, t'fr'biIfflU'Cii;'8!>i4-o4 
c t IT5*4i'ott'i:r y f'.VTR.VHD 
k't't r"4 X y* ? o44 i oTi’S* s , #fi 
CD4H'AV#,©^m^p t &* ! 'i>:y(:xi i:« 
t?nTi'(4S5. ^ffelTHA©#^ 
«S«:4 b i 7 44 

0AMAHA (0 4:«SSaiS) ©/'”y3>f 

*tr©ffly ITIpJ-fl T 7*>? 

K.T MSX^gim© 1 T±4'*'>, imtfi t: IT# 
t-3.-yx"4 7rfiiit©i!^4ffl 
o-CTfb, ^©#y 11 l LtlTM < 4*’ 
ofctltl'i', 

b^oto, Lsi©#ytxbsg-r, 
MSX2-riTS^ t Mc;±WLsi©tti&y - 
t-t LT7x#-*>04t^§ix-Ci'So 
FMWi^Lsib^nti's i,#m, mti 

b t 7-r 

*So 

0 8041'© 8 t'y b x /f 3 y IT t' 7 4 b T 
t*> ? 

K.T b 16 k" 7 b fr IT 4 y © * s x T 

s y©fc {.Ui'U bX\ #44: 4 k"7 
b-7/f 3y|T#)gg-rm^ L©yf'y So 
MSX4 if IT-^J4"#, ’86#ITf #4ffliti: 

7 )E^i: 4 7> 7 o 

W±o «ffi J f>*iJ©«W*’ < #4T i« E 
0U Sfti'fcT 7 c, f4©^rlTSb# 
4t'o (K.T) 


Again Watch 199 




r 


7“Hf> h 


t L'i &fr<7)7>'r- Hi*''#(7>f£SJSl£-f'<T-IBA<7> 

OlBAlTfc$ lii<*< »MU8 1 J315HOIIJ* 

^ITtLJt. 4'fc, SiS«0%«(±3 S-fCfH'ifo 


xv i y ? 


00899(24)0914 



SUPER 
RAM BOARD 
MB-IOOO 

Xl/Xlturboffl 2€ 

99,800R 

l M'M V 

y %■ o ns»RAM „fig #ii u j- 

— X 4 y T -f l' 5, 



■*» U--7/1? 


0096(363)0047 



BASIC HOUSE 00286(33)1994 


HKRAMtK-K 

KGB* 1 S8KBMZ 

MZ-2500E 5£ 

««9,800n 



MZ-2500ffl®^RAMirv 
■*•—7"M il : .0MZ-lR26 (35,0 
OOPJ) 





7 V-tfVb 

©©©©©©© 





JET-X1 

Xl/Xlturboffl 

5€ 

5D : 35,800R 

0^7- K 7° 
p -fc '7-^CO p > 7" 

-fc7—JET ^ ) - 
'£<0fk%\*is 3 
> 0 xiHn,xitu 
rboWJC02oC7)^e— 

— h"* ? £) 6 0 



3>IS3E 003(366)3274 



BPS 


0045(421)7421 


Xl/Xl turboffl 3€ 

T : 4,800R 

A b y h, 7 # 7'7^^-4 x(?)|25I ! 
<fc 0 RPG^jlot 


xi^-7lt X1S/U-X 



Xlturboffl 3« 

5D : 32,000R 


> °— ’/-Jvm: b" 7 ^ 

H 7 — K7°p -fc 
y-to 16b"*7 h ^ 

XIturbo (I 

ts». 








003(720)1111 


Xl^-Tlt/XlS/U-X 

SfflAP-5»5A«aH 

>XxAz\0X 1 O^g 

P&P"7'f □ >Sf3Cxr3fl 2,300R 

basic?* n/74 

<D &»*, 

A C Hilo 
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^PSTIIIZ MMkl" Hf> h 


S't-Tlii: J: h$2»! «M Z ^ !) -x'ffl 

•^7^ K*-> t±«ctbo 7 h {, * i) ^-Ifll 



r— *i 

M-i 

L 


-F 


(*;S7 'jx-f o 
S03(456)46I0 


S-CALGO 

MZ-700/150081 100S 

T : 9,800R 






niz- sit® • (8-smis 

SCALGO 




a- a 

SHARP 

s H 

7?7B 


mZ-70DBD/TlSaBBD 






System 
Program 

MZ-5Z002 

MZ-700 1 5008! 10€ 

OD : i0,000R 




SYSTEM PROGRAM 

MZ-5Z002 


/•rar^’ 






ittfccrtHac 


G (/\‘— v-^-;u>7*V T 7 ) 

Q03(490)8841 


^■78 

MZ-700 ' 1500B 1OOS 

T : I2,000R 




-B 


PASCAL 



Interpreter 

MZ-1ZQ04 


MZ-2000 2200J3 10€ 

t: i2,ooor 



MZ-2000/22008! 10=S 


T : 25,000R 


MZ-1Z005 


-H 

MZ-LOGO 

MZ-2000J3 100« 

T : 9,800R 


-I 


MZ-LOGO 

MZ-22G0S10Q« 

T : 9,800R 


M2 LOGO 



M2 LOGO 




B-d 

Machine Language 

MZ-l Z0Q6 


MZ-2000/2200IS 108 

T : 7,000R 


Floppy DOS 

MZ-2Z004 

MZ-2000/2200J3 1 


5D : so.ooon 



m*-'<-a?-BAsic-s-(*®*) a*w§] (M>nw) 

(*r®») («¥*) (**b») Ysm&m ® 

(«§**) (S53E») ffiRStJS (AffiH?) lUBSSi (ft 

**) bee is (t*») *#?;* '38*4 *X' 7x;u (»* 
jh») a c#ss3i: (*»») «#±is (s«») sga@2. @7S* 

7777? h 'J — PEJII*) (**») «#«£ (M 

3E») m (»H») «EB#'J!L (« 

mm) *B*» (W3S») ;H*aSK<f (*»*) Saw* (» 

mju*) («§**) 'i'ttAw oii^m) 

(5jii») /j'#a (**») j*b»- (*««) f*mR*(«t*Ms) 

ii*'40«ro^o 

J5Lh0>* •***£* $*l4 Lfc, *», # 

L t T *'\ A®OT«8lti oT#d>ii*l.*«■&*> r 


£3E#7utf>h 201 




































ANJI. Uty) -am Lit. 1 nor-* & 
14 6 ft 4 t'f, 1 ft g ($c^© 

*#»), 2 ~6ftg4ftp/r • t 

LTg|?-r'16X^ i-T'ffii i: to £11414 
**§= 4frftAftx /f yf-^fft t, 

cEn^eac-t^ h r-z* 

'M.i> t cities ft 4 to 

Q r l8tt8 Aj liSOtt It0£A 

(, 7 ot-7©:&fti4, 

jR^OEP^fcft? r #^EP^-Kj t'to 

0C M (gftf-P^) x t x ?• 5? # 14 ** c. * 

*%■ ON t:t5U ©*- K^R^dl 4 

to 

;©*-K«*, £im m-kmu'otz 
£iStt''0@f?rffii:t& j e- Ffto 
t4ftt>, g-f-P^iig (&«, ¥)ia, ss 

#=g, Mfietc.) ©EP^M&ftS^y V 

* ftieHS ft, ^'4 a W»J*' c. 14 r"-*© 


7'x-t—*■ G ft A z<Dy°) > ft u, 

®:fi^(*(££« 128,000 F] )4 ** C, , 24 k° 7 
© K x h t 7''°7 h itf&'C'iSi^fcEP^'t't, 
4 4, ^©«©tto!)SS;0^4ofcffl9E; 
^©EP^Srffimftftx * Z t J P, 14**1=-- 
©ff^Srfaf^UCiLTLi 7 ii'-W# 
®{)©14t„ zftiiftoi'-cHl^ft-ffiffl 
IT©. T EPt=f?i] t:oi>T0Sg 

4-L4to 

Q liff^ED^fcqTig 

c©7°y>^ii, ^©gi^y 77 t 
ffltNMSottft, 7 b-r*2> 


coi'TfS^r-t j: tciit, 

(14**1= EP1=) xftyf^tf 
l4**iif:$i£0Nftt6 t. d©*-K£ 
Rfe-rs it. ;©■=&-Ktttr*att**s (it 
HJ©?)©-rt)^:l=$?fll.pctftlt“I) ft 

ftplr, K=g4®^ftEP^-C'l= 6 J; 7ftt4 

{, ©-rto fIOt!/>M'li, 14**1= © 

(ial'ik* J P''°V 3 7*' liHSr"- 7©7 * 
-xyM^ft**, Z<D*~ K -C 14 k 

ft =i 4 7° y 7 7**§®J&\JCft-xT < ftito 
EPt=t £r''—7 14=7—7°n y 7 |- 
fly7L, £ i> =.' 14BASIC(2500, turbo 
I4fftl© (>©, XI (4 NEW BASIC + K 


7 * —? 7 h ftffift $ ft S C t 4 < , *Ig 
I® ft r'- 7 Sf & 5 41 f -C'fk 4 o 4 (f SC© EP 

»J4lBIt$L()ft7 c t**T'§= 4 to 

4 4, EP t Pflte(iS l© lx5 e 11 **, c. ft 
ft I4^'°y 3 7 *> 1 ^ ®]#p 3 - K 4jH S £1£( 7 ° 
n /7A{a]i*7ia7;H:fo Ti' 4 t) 

t, 4 7*73707^—77 h -^r—st?— F 
( FK 20 ) £{£7 £'(£**£ 1 4 to BU#© 
£ffil4£4>ffiPJ4 © t, H H t* 14«#© t 
-jtf-Kftoi'TlMl 4 to 
:©^-^- K141F3C©R£4ff^TTS 
ii:ft7fc*©{,©-r', $#L4*s:©ie 
It, W&1, JE4 £' **T' 1= 4 t 0 


i'< o*>(7)#S4fc t i-ri.'4to 4114 £ 
©tOCltofiJ r 14**i=EP^-Kj 
14 *'*#-<7)0]$: 



+P7 74P 1 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300- 

310 

320 

330 


r li # § ■ ® =£ *>■ •* S' r iv i 

:«i 5..«r7 t-7'/htl?tU. (i ^ {C ffi ^ {C ft m v w ^ r s ^ t, 
DIP SW-N 0.4 COFFj <7) tir &wm £ 1C J5: 0 4 * . 

DIP SW-No.4 C0N3 ^ b$ li «* * ^ 0 ^ -r . 


’ < < n as a a m) > 

LPRINT”x 0 6 3 ” 

LPRINT”^ « m Kin S 3 T S 3 - ! 
LPRINT” 

LP-RINT" #4- tt 
LPRINT" 

LPRINT" 

’ <<55^ Afim>> 

LPRINT" t 10 2" 

LPRINT" IS =f ft ffi E 0 # ST 2 - 
LPRINT" 

LPRINT" ( ft ) B*'/7 N /< > 9 
LPRINT” OhlMZ^m^ » + 
LPRINT" 


ft EP ^ 

' fS ft EP 3= 

' f&ft EP^ 

' 4 fg ft EP^ 
' 4 fg ft EP ^ 


2^2 Oh! MZ 1986.1. 



















ff^irKSLfci'fflttSrryv 
fitzAnx, *—#'— F<03r—y^*—& 
#i, 

©l$^l!flJ6ftgu&fctfTa£.t*7 7$r*f 

lti' < Aftt-rto 

3 7*>£,ep 

tt , '-7£ii£s4ttttpt-c'§‘*t<, «* ? 
^EPtHSHtC, BASIC^7-7°n-r'fW 
Lit. 

®^i:, zcd?°'J ># iZ'oi'XiflB&tt 
otSWJt, 

7 b (352 x234 x78mm) t# * Z t, £4 
In] C' <24 K "j I- ©Sit K '> Y A b 7° 

D 771 L T rto 

«tltl i, ? C7-7>- 

47°!> 77 t n 7''°t44*ffi;t 577) 
ti'Zi'Zi, lt* ? |tEP't. tfitEPtt 

b"a f * j;t at&i' .&-rto 
]£(:&#LTIt, EPt^ 
* ? * •) £ to z©7“!) 77 

0'J'S I'Kti', ^I'SPSttsEffl 144 
**>4- DMciHL4„ zniiJjift© k 

7 b 4 7->'°7 b 5t7°!) 7 7 ©Ts^'C' Li), 
£ tZ, EP-f-itLL A )‘)(£ < X i m’j it-Hr b (liinh 
IftOfr/tt) f L, ifctOEP^ciit 747 
LTLii-ito 


7t«IfLi-S ftXi'oXli L i'b<D 
f't„ $t'i:Lt $>i t &mLXi.'Z XI 
turbo^Xl (F t NEW BASICII#®), 25 
OOUttz 5 ltz?°') 77©ttift4K?£ IX, 
7°') 77f£5E* f *m43.-t A) T A ii'Sb 
JOtfflJ: L t> 4 < ffU'7”!) 77©% 
5t«. ®ia«^©Ji^©fs* f t£* s 4zt-r' 

* i to 

Xl/turbo, 2500'Ot, Z©7°P7 7 £"a 
sb4NEC^©7°!) 77 bffifflt'li £t©t, 
7°'; 77* i 'g^U't-g.oTi.'4^ii^©Z 
t t isMtiU < o (Sif .tig) 



M-1024P(tf£) 128,000R 

FK-20 (t-t- K) 29,800R 

PF-50(t°77 a ~ K-i- 7 b) 5.000R 

£5 2 ttROM t- b" 20,000R 

t-b#-7 b'7-b7-f-7"- 20.000R 

(1 fl 7«7cir-$) 

7'7-f-K3g« 0052(263)5811 


5gS»5fcH]$! 


• B * n u.f» ~ 


m a « a 

«. 





«»M * 2 II n Ht«» 0M «***.1f 

TKAf iif*« 

*Mmn 20 60 « A H 16 

*.»»» 

#}!»i *HA» 1 
«a— 20606-UU0B 


~w_ a m .*? 
» 



ffltto-t y b £ h o t Lo^*!)r & 6 J: 5 

f <" t:T ft 

liH/io ;t7°^a >£)* — h ii y h 
- h 7xfmi 

JbSttt, ^h^hUy oy ) 

—tfSititc&Zi, li-T 

STi'ii'J: 5iTto 

(DkQiz&bitxi.' < ti'ofc, ?BSW& 

t* ? o fettfi/wJ: 5 7 7 h 

«r^< 07°y 7^h lti> < t 
^ 5 ^Ip]^ *) 

7°y {> ^ 

itntfHo-c l 4 i.'ito -n*^(i7°y 


If >7*^ 2 


100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 


; • r * a EH * <n * > r )V ( ft « # ) j 

’ • Z0)£o%7*-'?v 


LPRINT ”101"’-----ft«» 

LPRINT"HL-6013"’....ft«*N o . 

LPRINT" 2060 3 6 "’-----ft *f ^ 0 

LPRINT'” 61 A lx - Rft 7 T - ^«-^T” , ---.— ^ 

LPRINT" 2060 2 29 004"’. 

LPRINT" 2 0 6 0 4 1 6 "’--. 

LPRINT”/P i- x X - ix 3 > # tt W * - h .5S *ft Br 

LPRINT"^ « m 5* 1 5 0 & SB 2 # ^ ft '”..K 31 # & 

LPRINT" 2 0 6 0 * 4 ft 3 0 B "’.. 

LPRINT” e $ 2 0 7. 0 0 0 "’---£ If & SB 

LPRINT"#&?B6A$0 y-v h/UMZ turbo"’- & ^ 1 

LPRINT" 1 1 28.000 1 2 8 0 0 0 & Jt / m f* / ^ & 

LPRINT" Z 8I»'y|8ifi (U-300) - 38 ® 2 

LPRINT" 1 2 4.800 5 7 6 0 0 ”»*/#«/A« 

LPRINT" 4 >/ ^ (LS511) " ’---38 S 3 

LPRINT" 5 2.500 1 2 5 0 0 •’ft I/ *« / 

LPRINT" fk a m f\ y t -f /< y 3 y (CZ-888C> "’-38 ^ 4 

LPRINT" 5 980 4 9 0 0 "’ ft ft / ^ fll / & 

LPRINT"# • 12 » •/ h (CZ-888V ) " ’..38 S 5 

LPRINT" 5 680 3 4 O 0"’SI/#«/^i 

LPRINT" ifi IK */ 7 h r x X ^ y y h j (JP5/V.2.2)"’--38 I? 6 

LPRINT" 5 120 6 0 0 "’iai/#«/^i 

LPRINT..-.-.-.-.--38 ^ 7 

LPRINT”"’---... $L S / # j# / £ m 

LPRINT....—...38 W 8 

LPRINT”"’---/ £8 

LPRINT" 2 0 7 0 0 0 ”’---- # ft 


1 

2 

3 

4 

5 

6 

7 

8 


rxj'jvx/u>y 20J 












































































MZ-2500, 
Xl/Xl turbo 




■ 



*iS, v^-7 o (7)jMJE« n p^^<7)MZ-2500ffiOffi§i>^U^- K, tfx*RAM*'-K, 
K, X1/X1 turboffl**Ji^»y^y^- 

Lfco HjEfiarSftit^Ay, L3&'fefi«»4-w#i%0)RAM#-Ktt, i-if-i: LTfe 


HfcJIWLito 


MZ-2500^ tf- K 
iglxRAMtf- K (BASIC HOUSE) 

KGB-128KMZ 12,800R 

9,soor) 

iilxRAM^-K (tUv^tAX) 

RM-25A-2 12,100R 


i^lx fcf x*RAM t> — K (tUv^tAX) 

RM-25A-1 13J00R 

(RM-25A-1, 2(7)-fe 7 b RM-25(i24,800R) 
640KB RAM DISK (tI/'>7tAX) 

RM-25E 49,800R 

X1/X1 turboflM 

512KB RAM DISK (tI/v^tAX) 

RM-X1E 49,800R 

SUPER RAM BOARD (xv*y?) 

MB-1000 99 # 800R 

BASIC HOUSE 00286(33)1994 

1 /yXfAX 006 (631) 0925 

00899(24)0914 


MZ-2500fflSa^^U7lt-K 

BASIC HOUSE *-G?£3£Sft4JB&R 
AMf— K (KGB-128KMZ), f w 7 X f A 
*>G&^®itRRAM;&-K(RM-25A-2), 
if|S:k"x"tRAM;*-K(RM-25A-l),640K 
B RAM DISK (RM-25E) £*S4)-L4 L 
4 ?o 

KGB-128KMZ tRM-25A-2li, 7-^-7° 
MJE©i£3gRAM*r- K'(MZ-1R26) t 14 
4-' 7 4’Ut, 

''°t©128K'*4 M y t'- K't'to ffi 

{£14, KGB-128KMZ* ! '12,800R, RM-25 
A-2* ? 12,100Rf t*' r , KGB- 128 KMZ 14 
BASIC HOUSE® L 

tm& 9,8oonrf-cAy 4 t. 44 , r 

M-25A-2©li 5 lif£j£©RM-25A-l tty 
4RM-25A**24,800Rf to I'T 
ftlzLXb, MJES,(35,000R)©M<'G i' 
©ffifeft„ ^256Kt"-y t©DRAM* { 4 
oSSoTi'S/w'ltitcOU, MiEpulit'5 
L t£> A.4 CHSi.'A-t L l?la. 

MZ-2500©t4£l*JX o 7 MltgLTA 
at, l'§4 0 BASIC®? 7* { ftl 

169K '<4 h tz 4 y 4 L 4*o -xtX-’PXgn 
3S&3r1£ot {>i 53 K'M b*a©ft*-G, 

£-D L T £ gn3E & 4- -54 -k §■ 4 7° n t* y 

a {, 11 * a 4 5 44 y 4 to 

RM-25A- lli, X-V— 7°MIE © i£S6 k''x" 
tRAMt'— K'(MZ-1R27) t7^2>^<f© 
64K^M bV-RAMf- K-C'to MIES,* 5 
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HEXKEY: 

JR 

PATCHO 





4 

E002 

180C 

NMRKEY: 

JR 

PATCH1 





5 

E004 

2100E0 

PATCHO: 

LD 

HL.0E0O0H 


;!!*!!! 


6 

E007 

111E00 


LD 

DF,CONV-i 

0E000H 



7 

EOOA 

19 


ADD 

HL.DE 





8 

EOOB 

EB 


EX 

DE.HL 





9 

EOOC 

3EC3 


LD 

A,0C3H 





10 

E00E 

1805 


JR 

MOVE 





11 



; 







12 

E010 

3E7A 

PATCH 1: 

LD 

A, 7AH 



; ORGIN. 

CODE 

13 

E0 12 

11E602 


LD 

DE,02E6H 



;ORGIN. 

CODE 

14 



j 







15 

EO15 

21B403 

MOVE: 

LD 

HL.03B4H 



;PATCH 


16 

E018 

77 


LD 

(HL),A 





17 

E019 

23 


INC 

HL 





18 

EO 1A 

73 


LD 

(HL),E 





19 

EO IB 

23 


INC 

HL 





20 

E01C 

72 


LD 

(HL),D 





21 

EO ID 

C9 


RET 






22 



; 







23 

E01E 

7A 

CONV: 

LD 

A, D 





24 

E01F 

E602 


AND 

2 





25 

E021 

CAB703 


JP 

Z.03B7H 



;RETURN 


26 



; 







27 

E024 

7B 


LD 

A, E 

;E=ASCII CODE 


28 

E025 

1E4 1 


LD 

E, ’A’ 





29 

E027 

FE2F 


CP 

’ r 

;’/ 

*-> 

’A' 


30 

E029 

2820 


JR 

Z ,MATCH 





31 



; 







32 

E02B 

1C 


INC 

E 

;E= 

’B’ 



33 

E02C 

FE2A 


CP 

’ * * 

; ’ t 

’-> 1 

' B ’ 


34 

E02E 

28 IB 


JR 

Z,MATCH 





35 



; 







36 

E030 

1C 


INC 

E 

*,E= 

’C* 



37 

E031 

FE2D 


CP 

’ - ’ 

; ’ - 

’-> 

•c’ 


38 

E033 

2816 


JR 

Z,MATCH 





39 



; 







40 

E035 

1C 


INC 

E 

;E = 

'D' 



41 

E036 

FE2B 


CP 

’ + ’ 

; * + 

’-> 

* D ’ 


42 

E038 

2811 


JR 

Z,MATCH 





43 



; 







44 

E03A 

1C 


INC 

E 

;E= 

'E' 



45 

E03B 

FE3D 


CP 

’ = * 

; ’ = 


’E’ 


46 

E03D 

280C 


JR 

Z,MATCH 





47 



; 







48 

E03F 

1C 


INC 

E 

;E= 

’ F ’ 



49 

E040 

FE2E 


CP 

* . * 

; ’ . 


» F > 


50 

E042 

2807 


JR 

Z,MATCH 





51 



; 







52 

E044 

FE2C 


CP 

’ , ’ 





53 

E046 

2002 


JR 

NZ,NOCNGE 




54 

E048 

3E20 


LD 

A, * ’ 

; * , 


' * 


55 

E04A 

5F 

NOCNGE: 

LD 

E, A 





56 

E04B 

C3B903 

MATCH: 

JP 

03B9H 





57 



; 







58 

E04E 



END 







V X h 3 - A 16itX h (MZ-2000 2200ffl) 


8000 

18 

02 

18 

34 

21 

B4 

09 

36 

:7A 

8008 

C3 

21 

112 

80 1 

22 

B5 

09 

C3 

: 19 

8010 

B1 

00 

79 

FE 

02 

D2 

B8 

09 

: BD 

8018 

78 

FE 

04 

C2 

CC 

09 

7B 

FE 

:8A 

8020 

10 

DA 

CC 

09 

3E 

17 

BB 

DA 

: A9 

8028 

CC 

09 

21 | 

f20~ 

801 

19 

7E 

C9 

: F6 

8030 

41 

42 

43 

44 

45 

46 

36 

41 

: OC 

8038 

21 

FE 

02 

22 

B4 

09 

21 

38 

: 59 

8040 

14 

22 

B6 

09 

C3 

B1 

00 


: 69 

SUM: 

56 

66 

8F 

OC 

8B 

74 

D5 

1C 

: 47 


U X h 3 

-B 

1631*- 

-V- 

X U X h (MZ-2000 2200JB) 

0000 





1 




0000 





2 

EXTENDED 

KEY ROUTINE 

0000 





3 

; 



0000 





4 




8000 





5 


ORG 

8000H 

8000 





6 




8000 

18 

02 



7 


JR 

PATCH 

8002 

18 

34 



8 


JR 

CLCT 

8004 





9 


; 


8004 

21 

B4 

09 


10 

PATCH: 

LD 

HL.09B4H 

8007 

36 

C3 



11 


LD 

(HL),0C3H 

8009 

21 

12 

80 


12 


LD 

HL,START 

800C 

22 

B5 

09 


13 


LD 

(09B5H),HL 

800F 

C3 

B1 

00 


14 


JP 

00B1H 

8012 





15 


; 


8012 

79 




16 

START: 

LD 

A, C 

8013 

FE 

02 



17 


CP 

2 

8015 

D2 

B8 

09 


18 


JP 

NC.09B8H 

8018 

78 




19 


LD 

A, B 

8019 

FE 

04 



20 


CP 

4 

801B 

C2 

CC 

09 


21 


JP 

NZ,09CCH 

801E 

7B 




22 


LD 

A, E 

80 IF 

FE 

10 



23 


CP 

15 + 1 

8021 

DA 

CC 

09 


24 


JP 

C.09CCH 

8024 

3E 

17 



25 


LD 

A, 17H 

8026 

BB 




26 


CP 

E 

8027 

DA 

CC 

09 


27 


JP 

C,09CCH 

802A 

21 

20 

80 


28 


LD 

HL,TABLE-16 

802D 

19 




29 


ADD 

HL, DE 

802E 

7E 




30 


LD 

A,(HL) 

802F 

C9 




31 


RET 


8030 





32 




8030 

41 

42 

43 

44 

33 

TABLE: 

DEFB 

'A*:’B':*C’:’D' 

8034 

45 

46 

36 

41 

34 


DEFB 

*E':’F*:’6 *:*A’ 

8038 





35 




8038 





36 




8038 





37 




8038 





38 

; *1- 



8038 





39 




8038 





40 




8038 

21 

FE 

02 


41 

CLCT: 

LD 

HL,02FEH 

803B 

22 

B4 

09 


42 


LD 

(09B4H),HL 

803E 

21 

38 

14 


43 


LD 

HL,1438H 

8041 

22 

B6 

09 


44 


LD 

(09B6H),HL 

8044 

C3 

B1 

00 


45 


JP 

00B1H 
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X* • *M?80X3?)!> S 1£A ■> ±Pl ■ ffir^J • ¥ 
^•±o^ •T'^St (lSX 5 ?) "C'SEtt'** 
ztA5tt*a-r 0 f&fc’ix^ia, >xt- 

mi-i to MZ-1P07 ©«& Ks> bX'J >* 

t- fc £^*$ <oX3?£ Bi^tzzttfxz 
24 Ks- b^'J >*13:, *r*iROM*S 
i&ST-f. 

z ^mz ac tpmwkfmi 

Ks> b-y; >* 2:24 b> b7l^^'J>* 

mtmowqgftv, 95mz.xm$ti 

tz. -ttw^Tasij^nx^iBiBi 

• 1 Ks> b#ffi!C n > b O — )V 

x&a-To SB 

ftwmtt b, sa<D*nx?B«« 
SWJ-f 5 Z t *«x- & 5 
Htii*9«|4F>X*7T 
ti7iX**> «83t *#$0Pi!cS4 
b kv bmfcmmmx # a -r 0 

HZ-lPl0/ll(i, 




: lOOOrg*, 1 A«^B#ra«S50©^n 

: lOOOg&omtSJFIS] 5»m* 150«S6y--S^t^fP] 10®)B!l« 

a g : ®g, 7!)*-X, ffifrl, flEgFf 3 

«^1, «i%2, «|^3, ffl^4 

Sfi |g : 1200|g (US, 700fgg|iS) ^ ^ : 95X^ 

5S-S0I®U • > > * JU t/ >b, yb, ^ ^7 4rEP^IJ 

^ 3R : 2 

®^iiai*t*izi9®:-r5zt*stt*a-ro (fa7R) 


m m 

TYPE 

A& 

$!§ 

m 

m=.m 

& » 

m® 

-fb >* 

MZ-1500 

QD 

100 

ftb 

fob 

5Ri m 

V8.3Q 

15,000 

MZ-1P08 

MZ-1P14 

GP-500Z 

MZ-80B 

MZ-2000,2200 

DISK 

DISK 

TAPE 

QD 

1000 

1000 

150 

150 

$> 1) 
2b *) 
2bb 
2b *) 

teb 

teb 

&b 

teb 

*5]f£ 

^rJI6 

^rIS6 

V5.3D 

V6.3D 
V6.3T 

V6.3Q 

33,000 

33,000 

15,000 

15,000 

MZ-80P6 

MZ-1P07 

MZ-2000,2200 

DISK 

1000 

2b*) 

$> b 

p*3 m 

V6.3DK 

43,000 

MZ-1P10 

SS57 D 

5S57 

SS57 

SS 57 turbo 

SSZ7 turbo 

DISK 

DISK 

TAPE 

DISK 

TAPE 

1000 

1000 

150 

1000 

150 

2b b 
2b }f ) 

2b*) 
2b*) 

teb 
%b 
teb 
te b 
teb 

T^m 

Tsirn 

V9.3-3D 
V9.3D 
V9.3T 
V10.3D 
V10.3T 

33,000 

33,000 

15,000 

33,000 

15,000 

CZ-800P 

CZ-8PD2 

CZ-80PK 

CZ-8PK2 

EPSON 


★ irJIsgiSS rl^ROM ( MZ-1R13 / CZ-8KR / HZ-1R23 ) *S(&5lT'-f „ 


[ p o PW&ftgJ 

SS77fflX(ax-/'e-'f >.1f-X^6*fjg-o 
XV-XnXfB®l/7:XS ) fe‘'''s' *«fe, 
is®, X^<Ofe, x* O— it— K&£' 

Tfb 5ii *sx ^ a to 

[ timwrt ] 


Z\^r^=t $mMkwm& i 

^E'fflxia-?->*^xD S , 7"SSS6*®7 .t 
*®fe, jg 

S, X^ofes S^ffSSt (1,2,-/0 5, 

S) -C 

b*^il»3y > b •& t'r XiiBX ^ 
k'^X mf- b, k'xXPOP 
*s(B*ic^BKx»aXo 


* 

TO ^ 

jg^ROH 

*f V V A V *7 

-fb >* 

MZ-200.2200 
MZ-80B 

V6.1DG 

V5.IDG 

MZ-1R13 
MZ-1R13 
(P10-3055) 

MZ-1R01+02 

MZ-80BG 

MZ-80BP5 EPSON 
MZ-80P6 MZ-1P10 

MZ-1P07 MZ-1P11 

SS27 

SS57 D 

SS57turbo 

V9.IDG 

V9.1-3DG 

VI0. IDG 

CZ-8KR 

CZ-8KR 

CZ-8GR 

CZ-8GR 

CZ-800P CZ-8PN1 
CZ-8PD2 MZ-1P10A 
CZ-80PK MZ-1P11A 
CZ-8PK2 MZ-1P17 


JK DISKCDMZ-80BF, MZ-1F07 ^>CZ-501F,CZ-801F,CZ-300F *5^ 
•*DISKI3\ 2 K5-f 7£'gXMZ-80B«A.70 b5-y *f±(* 


ESC/P09 ESC/P24 



J I S 2965X^( HZ-1R13, CZ-8KR Mg ) 

J 1 St&H***^3384 ; ^ ( fa 7fr* ) 

a.— <r-9\s£ 16X16=803^ 24 X 24=80X# : 

■>Xta51#: 16X16=16X^ 24X24=227 X^ 

mmm 

w»3ot«k + mmmm 

(1^6T3^) -(MZ-80B(i, 8^F^) 

3 


( j i s&- • mr.m) /mmg& 

j i sn- 

mnmm 

»A/w^aiiE/ffit«± • a» • m*£/ft2bv/ftt b 

is -m* 

±otk 

XS#A 

-fb >*#s/±8B^B/TSB^a/*®i^a/*®^e 
xmm ■ sm ■ 'nWtiL/m$ ■ la** • nmtuyixfmm/'nmm 

mmm 

bsi mmymmtm/mw s yum s /«bx^/^x» 

24 Ks> htb [ MZ-1P10 ( HZ-1P17 ) , MZ-1P11 ] 

mmt) 

HZ-80BP5, CZ-800P-ftASIBOX^XSOff 

HZ-80P6, HZ-1P07, ESC/P09, HZ- 1P10, CZ8PN1 ®A® 6 OX^ X 80fi 

HZ-1P11,ESC/P24 .-gA« 9 9X^X4 Ofj 

mmm 

X»M0(t/r-*a?/>X? > Jg^/IBXSBS/XS^fS 
X«fA/X*S'J^/*SBS^/m®P^/X»«BS/X««®S 
(24/16)/^-K (24/16) 

¥fssij»/¥sss/¥s^± sst7 ( popmyxrtmm) 

« s 

IX# ; 4000X^£lfl ( ljc*7r -fyKZ35*>f, 240R ) 
ll&B : 1263t^£lrt ( 1SS45J77 ^yKClOOOS^J ) 


24 Ks> b ~f 'J >* la, ^Zl^KlpROM • * V b >— b 7 4 — *'3 > b a —ybPJ|g 


^ TO 35 

a a « 

TYPE 

« $s 

iH^BAS I Cn >/•(—* 

MZ-80B 

DISK 

¥18,000 


MZ-2000,2200 

DISK 

¥18,000 


MZ-2000,2200 

TAPE 

¥13,000 

*?77 -/yb (KF-1) 

MZ-80B 

DISK 

¥68,000 


MZ-2000,2200 

DISK 

¥68,000 

y — 7°a < zi ^ 

MZ-2000,2200 

TAPE 

¥ 7,000 


MZ-2000,2200 

QD 

¥ 8,000 

★ y —-/n 

MZ-1500 

QD 

¥ 8,000 

( MZ-1P17 ^ ) 

SS27 

TAPE 

¥ 7,000 


i« 9-/u 5 = 5 = Ktt, -aM&01@J*5X§aXo 

« MZ-1P17 la, MZ-1P10 b±HL^l'^tXt o 


j. -i> p- t=r rj, 

^ ztf t* 

T416 $B«S±i1iftS104-3 (0545) 61-1417 («) 


*j*«>ia±ffl-r^3>>H5,-/xiaa)iS5eiz^#® GSB4^-k-x) icaa«Rcb 

/b/5 A«*#l'Xteg|»)TSV'o ffiBSIS AM9:00~PM7:00 

SiiO® »*^7»±XE (Sffi) 5683 SiSTkBiB -a?3 0BiB 


iiaft^ia, A3fflSRlcNER miuiX'MZ-lPll %m~,XWmbSLti 



























































Micro Port 






®JMffiZM\r.*-7’-Ti-\r-tZZki) , X'$.947' : 59— 


tt-iStt. 




O SHARPIY/7 v U —X & -fw/r fjn 

(x-V^KS/5-f>^) (a-tr-yMifi) 

¥8,800*¥3,800 


®f xh& Tft, «««•£»« • • £»$***. 


^yp^7A7P'yt’-(35a^<7)x-^ < #l'Ti'iToX-^a5i(i 
• nme • BASIC WIS • S A-t • tt£*4 • nmzxvto 

(twk&) 



» SHARPffi7->'J-X 
&fe/#to7 /SAS-800 

(7P’y L°—tV • 5< >^) 

¥70,000 (Ver.G) *2K7-T7 r « 

• SHARP mJHfflHDHI/SAS-2102 

(7 □ -y t°—r-f 7 ?K£/5< >■?■) 

¥70,000 (Ver. B)*2K7<7W 



au®&##r' °&m f. m<- x< % n <r> mvsr* 

(2>n-yy H J£+##fti '5>SB*tW J; r- 

x iyhy">j> 7**§>III -CS (W7U MZ-2000COA, */L\ 

^a^r-y7 p -^''^'lga : .n$co7o-yt-?e#5. 

?<0 fik Ay-f-f-y 7.WTi £<, 


79vh7*hT*r®5c*I=v'S'*. §»=*-k. Xh?-* 

/tv-T'P^ PC-1350ffl *>X7AiS5fi WlflMM 

iiiSmtl CE-126. RAM^J—K202M(16K) 



S^4-x-^T;ffi5t*So 

i® % (0 =>— KNa • tii p/f • §\> fUI # ^ • ’>li ilS flf %- • )® ft faJ: (fMtfc 
(ff7£ BB0£*tettfBtt-tt 

AaB(ftlOS)««^-S#-ffl1»*ll»XB^V'i?yKOlf 
*S(TOB-^7B) 



• SHARP i2Z7->y-X(*-t7HK) 
¥4,800 •*X1 DT'lif$fflT'£3:-ttA,o 


'bffUfoMlkks ilo 


«* ^-r^nTtv—K ®(078)801-5181 

::-±tev7K7)}j*A(i s fca«7)v<=iy>3v7;sfcttattST 1 4'fc\aa^fcEt J Lix*«ti^(j.ii#@@TfcssL'SLst, 


*/''>y^7l'5rffl.SLTfJi«-r,@l45rCiS*<fc'?l.',4'fc,7^fra(7)-*if4OTiiLi£'§-O0©O^'-y+ , JfS*SSI>.'Jt; 





















s?*jSL 

txZ>'>%ris 0 HOT LINEfcMCTM'M' 



•i?x-)b 

'<'S=>-e®%e>Mz. ¥«')¥-<. ms 


Xm%r.A-rt—>’^AiM-f < ,7A')*XU 
i"Cc. 



•JSPfr&OfcSOBt!: •HOT LINE7^^> 


&mm±<?>mm>‘C>'iiitvteJ& p» r w 

hAm^%MOjWlgsgU#*ffit:*|./ J :gS 


/ AA*t^><4« ¥»'* 

► =2>t>¥ 51)— r 7—X" 



•A-Ki^-V7Sii 


»|!!a-i-x*s¥<A¥--Cir^¥¥t««o 
Kx—*— v7V>' 


I'ALiLAo 


siit'^AL-n'i-n 



nilhliS 


r O-”*jfti'«tB*+- t"x*m**-yywg 

#o l 'O, kMt\ te*W*»fL 


^N°yny{:J;^iifsfiS 7u x xt M ;lf Hi 4 1 

T'-fo 


► 0ilcry-tx x i‘i i' 

► #rfij^.-x 





IBR-SSC- ^E»il3iS2lz>*Hi8ls/ 


mms. * *4>c .m ~ xgmmm/ 


«!£#■§, 

»i.'tTEiT-tj$U*T?l'. WiSLWL 
<x$L£**rt£^ig£fcS3£‘);Mi-TJI#J-f„ 
(»« ag*Q60¥12fl3lS) 

3E ft : t 150 ®»SB;*SEi*£«2Ti28#4-t 
J&PSSffi J&P HOT LINGI 9f%)g 
tiNli'Zbit : 0(03)496 — 4141 


<sS&IP>Kj©iF 

a gmw/ 

mLft%imzmR i ) 


fiZovtf-bttfflzzBGZyhTzniaxDXSBnisj&Pfx-y 


& & £ m«:tB^^Eii5:^2Tg28#4-§- 0(03) 496-4141 
PI ffl £ msCfB&TfflrfmfM T S 39- 16 0 ( 0427)23-1313 
AITg AiT^'-?7F 0(0426)26-1141 

t* 77>K *B&rf5;6&IEB**Si5Tg6#7-s§- 0(06) 644-1413 
*tm 77>K *R&m;&£EB**£5TS9#11-S§- 0 ( 06) 644-1613 
E->*3.7>K *«:ibE1Sffl1-1-3 ASSSRbu^ 3tVUB2 0(06) 348-1881 
BSHEtffig AB5m4bE^ffl1-1-3 R5m = #^B1 0 ( 06) 374-3311 
#Il£^irfi^IBl 11 - 16 0 ( 0726)85-1212 


< r U £ & 2 Fm*i«M*Btr 2 T g 2 - 2 0(0720)56-8181 
I+rfiSrflWl-3-204 T-I^^F 0 (06) 834-4141 
3K«#HTJ£ 0(075)341-3571 

« m £ mmmiTs i# (i^^^lohf 0(0792)22-1221 

ft»W£*ag£mm7U^BT4-8 - 1 0(0734)28-1441 

# J A £ £*trti+E*3T§4-5 SAKAE N0VA6F 0 (052)261-9201 
0 B rfj £ IzgBmma<7)^2 - 1 - 19 0 ( 0593)54-3366 

* £jfffiA£[*3 31- 20 0(0592)26-0111 


Personal Computer Store 

cjtSjP 

























































lim U^JiyjUrU »*«* 89.800R 

?y7'ry?mt •^£;!§#fc 

£r-y7$tt5RAM7:rYM*7i'3>)*fcL^^fcOK,/1tY7'-lt—K(*7 

->3» #gofcifro 0 *.53lfB 7 7 ho#, 

A¥XcD14§i*7-TV^M'CU-14F1B«mffite64 ( 800R(tt-yv3>X't-o«CRTii®(i/^=l$^T' r +> : 7^j(©(W 
fAn)«t‘J 0 J/-^f&c7)®l(J r D-K7W--J (a-y<-a) x r K7K7mkIIj (xx7?2)/a-#7JJj Or&^nH r c a _ 
*j(x2/77lOJ:»J. *□—K‘7>X'—(iUSA Broderbund Software lncc7)g|f®^T'fo 




«l«tt(R) 


Pltt(R) 


V7bs-v>JU 


V7H?+>JU 




5,200 




MILKY WAY 


4,800 


-7-r^P^>yh 


y - A 


7->?-7*-7 


4,800 


777t- 


4,800 


x-L'-77h 


7*-'Jy 




a-*7JJ(MZ-1P17^ffl) 


12,800 








NEW VIP 


12,800 


T ? -t*-77h 


-**W77?Y')- 


PA/\*>y? 




3- 4,500 


flg<7)f?i? 


ft* 


¥ s 




3- 7,8 




»J*«E 


/\K7>M6ft 




* 4,500 


• JiE<7)77HilfA,<7>—0UT*t;i¥L<(i*MZ APPLICATION NEWS' K<«?lV «P-K7>X-(iUSA Broderbund Software lnc<7)§ii®«fT*To 

^ttT545*«SmP"T«»E*;i!lBI22#22^a(06)621-1221 (*«*)• JiWl'-&^-tt(J-^±F<9iaF , 9l««'>^xA®*^:a5ST-o 
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